diff options
author | dos-reis <gdr@axiomatics.org> | 2007-08-22 08:10:00 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-08-22 08:10:00 +0000 |
commit | b746535c3f19d5d444eb4ba58e47651e1eb52e1f (patch) | |
tree | fb755f9697078ae43067dbbbf27b54edd3136212 /src/interp/bootfuns.lisp.pamphlet | |
parent | 68d5315c2d9a8c1526a6af824f52f84485f16257 (diff) | |
download | open-axiom-b746535c3f19d5d444eb4ba58e47651e1eb52e1f.tar.gz |
* bootfuns.lisp.pamphlet ($bootStrapMode): Move to sys-globals.boot.
($BreakMode): Likewise.
($cacheAlist): Likewise.
($cacheCount): Likewise.
($clamList): Likewise.
($compCount): Likewise.
($compUniquelyIfTrue): Likewise.
($ConstructorCache): Likewise.
($createUpdateFiles): Likewise.
($currentFunction): Likewise.
($currentLine): Likewise.
* setq.lisp.pamphlet: Merge the definitions of the above mentioned
variables into sys-globals.boot.
* Makefile.pamphlet (sys-globals.$(FASLEXT)): Require
hash.$(FASLEXT).
* Makefile.in: Regenerate.
Diffstat (limited to 'src/interp/bootfuns.lisp.pamphlet')
-rw-r--r-- | src/interp/bootfuns.lisp.pamphlet | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet index b0c77707..099cd042 100644 --- a/src/interp/bootfuns.lisp.pamphlet +++ b/src/interp/bootfuns.lisp.pamphlet @@ -110,7 +110,6 @@ offer it as extensions. (export '(,p) "BOOT"))) -(def-boot-var |$abbreviationTable| "???") (def-boot-val |$algebraList| '(|QuotientField| |Polynomial| |UnivariatePoly| @@ -122,12 +121,8 @@ offer it as extensions. (def-boot-val |$BasicDomains| '(|Integer| |Float| |Symbol| |Boolean| |String|) "???") -(def-boot-val |$bootStrapMode| () "if T compCapsule skips body") (def-boot-var |$brightenCommentsFlag| "???") (def-boot-var |$brightenCommentsIfTrue| "???") -(def-boot-val |$BreakMode| '|query| "error.boot") -(def-boot-var |$cacheAlist| "Interpreter>System.boot") -(def-boot-val |$cacheCount| 0 "???") ; modemap:== ( <map> (p e) (p e) ... (p e) ) ; modemaplist:= ( modemap ... ) @@ -138,15 +133,6 @@ offer it as extensions. (((|Category|) (|Category|) (|List| |Category|)) (|Category|)) (T *)) ))))) "Compiler>CUtil.boot") -(def-boot-val |$clamList| - '((|getModemapsFromDatabase| |hash| UEQUAL |count|) - (|getOperationAlistFromLisplib| |hash| UEQUAL |count|) - (|getFileProperty| |hash| UEQUAL |count|) - (|canCoerceFrom| |hash| UEQUAL |count|) - (|selectMms1| |hash| UEQUAL |count|) - (|coerceMmSelection| |hash| UEQUAL |count|) - (|isValidType| |hash| UEQUAL |count|)) - "Interpreter>Clammed.boot") (def-boot-val |$CommonDomains| '(|Record| |Union| |List| |Vector| |String| |Float| |Integer| @@ -155,16 +141,9 @@ offer it as extensions. |PositiveInteger| |SmallInteger| |Boolean|) "???") -(def-boot-var |$compCount| "???") (def-boot-var |$compileMapFlag| "Interpreter>SetVars.boot") -(def-boot-var |$compUniquelyIfTrue| "Compiler>Compiler.boot") -(def-boot-val |$consistencyCheck| nil "Interpreter>Consis.boot") -(def-boot-val |$ConstructorCache| (MAKE-HASHTABLE 'ID) "???") (def-boot-var |$constructorsNotInDatabase| "Interpreter>Database.boot") -(def-boot-var |$createUpdateFiles| "Interpreter>SetVarT.boot") (def-boot-var |$croakIfTrue| "See moan in U.") -(def-boot-var |$currentFunction| "???") -(def-boot-val |$currentLine| "" "current input line for history") (def-boot-val $delay 0 "???") (def-boot-var $Directory "???") (def-boot-var $DISPLAY "???") |