From ed27313ddc520ba88e50489f11112bb08e153e3e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 10 Nov 2007 06:56:02 +0000 Subject: src/algebra/ 2007-11-10 Gabriel Dos Reis * Makefile.pamphlet (mostlyclean-local): Remove stamp files and strap/ directory too. (clean-local): Remove database directories too. src/interpreter/ 2007-11-10 Gabriel Dos Reis * Makefile.pamphlet (nrungo.$(FASLEXT)): New rule. (nruntime.$(FASLEXT)): Likewise. (<>): Remove. (<>): Likewise. * nrungo.boot.pamphlet: Push into package "BOOT". Fix syntax. * nruntime.boot.pamphlet: Push into package "BOOT". --- src/interp/ChangeLog | 9 +++++++++ src/interp/Makefile.in | 14 ++++++-------- src/interp/Makefile.pamphlet | 26 ++++++-------------------- src/interp/nrungo.boot.pamphlet | 5 ++++- src/interp/nruntime.boot.pamphlet | 3 +++ 5 files changed, 28 insertions(+), 29 deletions(-) (limited to 'src/interp') diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 9309fc94..5700dbcf 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,12 @@ +2007-11-10 Gabriel Dos Reis + + * Makefile.pamphlet (nrungo.$(FASLEXT)): New rule. + (nruntime.$(FASLEXT)): Likewise. + (<>): Remove. + (<>): Likewise. + * nrungo.boot.pamphlet: Push into package "BOOT". Fix syntax. + * nruntime.boot.pamphlet: Push into package "BOOT". + 2007-11-07 Gabriel Dos Reis * Makefile.pamphlet (i-toplev.$(FASLEXT)): New rule. diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in index 29cd5263..fd8f1b66 100644 --- a/src/interp/Makefile.in +++ b/src/interp/Makefile.in @@ -484,6 +484,12 @@ compiler.$(FASLEXT): compiler.boot category.$(FASLEXT) c-util.$(FASLEXT) \ modemap.$(FASLEXT) pathname.$(FASLEXT) $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< +nrungo.$(FASLEXT): nrungo.boot c-util.$(FASLEXT) + $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< + +nruntime.$(FASLEXT): nruntime.boot c-util.$(FASLEXT) + $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< + iterator.$(FASLEXT): iterator.boot g-util.$(FASLEXT) $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< @@ -745,14 +751,6 @@ nrunfast.clisp: nrunfast.boot @ echo 356 making $@ from $< @ echo '(old-boot::boot "nrunfast.boot")' | ${DEPSYS} -nrungo.clisp: nrungo.boot - @ echo 359 making $@ from $< - @ echo '(old-boot::boot "nrungo.boot")' | ${DEPSYS} - -nruntime.clisp: nruntime.boot - @ echo 362 making $@ from $< - @ echo '(old-boot::boot "nruntime.boot")' | ${DEPSYS} - nrunopt.clisp: nrunopt.boot @ echo 365 making $@ from $< @ echo '(old-boot::boot "nrunopt.boot")' | ${DEPSYS} diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet index 5689459a..bdaffb89 100644 --- a/src/interp/Makefile.pamphlet +++ b/src/interp/Makefile.pamphlet @@ -857,22 +857,6 @@ nrunfast.clisp: nrunfast.boot @ echo '(old-boot::boot "nrunfast.boot")' | ${DEPSYS} @ -\subsection{nrungo.boot} - -<>= -nrungo.clisp: nrungo.boot - @ echo 359 making $@ from $< - @ echo '(old-boot::boot "nrungo.boot")' | ${DEPSYS} -@ - -\subsection{nruntime.boot} - -<>= -nruntime.clisp: nruntime.boot - @ echo 362 making $@ from $< - @ echo '(old-boot::boot "nruntime.boot")' | ${DEPSYS} -@ - \subsection{nrunopt.boot} <>= @@ -1157,6 +1141,12 @@ compiler.$(FASLEXT): compiler.boot category.$(FASLEXT) c-util.$(FASLEXT) \ modemap.$(FASLEXT) pathname.$(FASLEXT) $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< +nrungo.$(FASLEXT): nrungo.boot c-util.$(FASLEXT) + $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< + +nruntime.$(FASLEXT): nruntime.boot c-util.$(FASLEXT) + $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< + iterator.$(FASLEXT): iterator.boot g-util.$(FASLEXT) $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< @@ -1396,10 +1386,6 @@ boot-pkg.$(FASLEXT): boot-pkg.lisp <> -<> - -<> - <> <> diff --git a/src/interp/nrungo.boot.pamphlet b/src/interp/nrungo.boot.pamphlet index f0ecf57f..96f7aaa0 100644 --- a/src/interp/nrungo.boot.pamphlet +++ b/src/interp/nrungo.boot.pamphlet @@ -46,6 +46,9 @@ <<*>>= <> +import '"c-util" +)package "BOOT" + --======================================================= -- Lookup From Interpreter --======================================================= @@ -213,7 +216,7 @@ lookupInCategories(op,sig,dom,dollar) == nsig := MSUBST(dom.0,dollar.0,sig) r := or/[lookupInDomainVector(op,nsig, eval EQSUBSTLIST(valueList,varList,catform),dollar) - for catform in catformList | pred] where pred == + for catform in catformList | pred] where pred() == (table := HGET($Slot1DataBase,first catform)) and (u := LASSQ(op,table)) --compare without checking predicates and (v := or/[rest x for x in u | #sig = #x.0]) diff --git a/src/interp/nruntime.boot.pamphlet b/src/interp/nruntime.boot.pamphlet index c2d809d1..eaa39365 100644 --- a/src/interp/nruntime.boot.pamphlet +++ b/src/interp/nruntime.boot.pamphlet @@ -46,6 +46,9 @@ <<*>>= <> +import '"c-util" +)package "BOOT" + unloadOneConstructor(cnam,fn) == REMPROP(cnam,'LOADED) SETF(SYMBOL_-FUNCTION cnam,mkAutoLoad(fn, cnam)) -- cgit v1.2.3