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/setq.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/setq.lisp.pamphlet')
-rw-r--r-- | src/interp/setq.lisp.pamphlet | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet index c3b3c927..4e396b5d 100644 --- a/src/interp/setq.lisp.pamphlet +++ b/src/interp/setq.lisp.pamphlet @@ -94,7 +94,6 @@ (SETQ |$permitWhere| NIL) (SETQ |$newSystem| T) (SETQ |$noSubsumption| NIL) -(SETQ |$bootStrapMode| NIL) ;; if true skip functor bodies (SETQ |$compileDontDefineFunctions| 'T) (SETQ |$compileOnlyCertainItems| NIL) (SETQ |$devaluateList| NIL) @@ -122,8 +121,6 @@ (setq |$Newline| #\Newline) -(setq |$createUpdateFiles| nil) - (SETQ $FUNNAME NIL) ;; this and next used in COMP,TRAN,1 (SETQ $FUNNAME_TAIL '(())) (SETQ $LASTPREFIX "S:") ;"default setting" @@ -204,7 +201,6 @@ (SETQ OPASSOC NIL) (SETQ SPADSYSKEY '(EOI EOL)) -(SETQ $cacheAlist NIL) (SETQ $streamAlist NIL) ;; following 2 variables are referenced by PREPARSE1 @@ -307,7 +303,6 @@ (SETQ |$existingFiles| (MAKE-HASHTABLE 'UEQUAL)) (SETQ |$updateCatTableIfTrue| 'T) -(SETQ |$ConstructorCache| (MAKE-HASHTABLE 'ID)) (SETQ |$instantRecord| (MAKE-HASHTABLE 'ID)) (SETQ |$immediateDataSymbol| '|--immediateData--|) @@ -318,22 +313,6 @@ (SETQ |$libraryDirectory| 'A) (SETQ |$listingDirectory| 'A) -;; See CLAMMED BOOT for defs of following functions -(SETQ |$clamList| '( - (|canCoerce| |hash| UEQUAL |count|) - (|canCoerceFrom| |hash| UEQUAL |count|) - (|coerceConvertMmSelection| |hash| UEQUAL |count|) -; (|getModemapsFromDatabase| |hash| UEQUAL |count|) -; (|getOperationAlistFromLisplib| |hash| UEQUAL |count|) - (|hasFileProperty| |hash| UEQUAL |count|) - (|isLegitimateMode| |hash| UEQUAL |count|) - (|isValidType| |hash| UEQUAL |count|) - (|resolveTT| |hash| UEQUAL |count|) - (|selectMms1| |hash| UEQUAL |count|) - (|underDomainOf| |hash| UEQUAL |count|) -; (|isSubDomain| |hash| UEQUAL |count|) -)) - ;; the following symbol holds the canonical "failed" value (SETQ |$failed| "failed") @@ -377,8 +356,6 @@ (SETQ |$leftPren| "(") ;;[for use in SAY expressions] (SETQ |$rightPren| ")") -(SETQ |$abbreviationTable| NIL) - (|SETQ| |$BasicDomains| '(|Integer| |Float| |Symbol| |Boolean| |String|)) (SETQ |$PrintCompilerMessagesIfTrue| NIL) @@ -416,7 +393,6 @@ (SETQ |$reportCoerce| NIL) (SETQ |$reportCompilation| NIL) (SETQ |$streamCount| 0) -(SETQ |$cacheCount| 0) (SETQ |$streamIndexing| NIL) (SETQ |$reportExitModeStack| NIL) (SETQ |$prefix| NIL) |