diff options
author | dos-reis <gdr@axiomatics.org> | 2007-08-27 06:41:59 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-08-27 06:41:59 +0000 |
commit | f3e1316f943136ab1428ff1caea540c85585bb16 (patch) | |
tree | dd207be5299d886f45da67d7e8888e5a260aacd4 /src/interp/setq.lisp.pamphlet | |
parent | 155501c7ef2f4d48f22883a4bee1651b2a51799a (diff) | |
download | open-axiom-f3e1316f943136ab1428ff1caea540c85585bb16.tar.gz |
* bootfuns.lisp.pamphlet (|$forceDatabaseUpdate|): Move to
sys-globals.boot.
(|$form|): Likewise.
(|$fromSpadTrace|): Likewise
(|$genSDVar|): Likewise.
(|$Index|): Likewise.
(|$inLispVM|): Likewise.
(|$insideCapsuleFunctionIfTrue|): Likewise.
(|$insideCategoryIfTrue|): Likewise.
(|$insideCoerceInteractiveHardIfTrue|): Likewise.
(|$insideCompTypeOf|): Likewise.
(|$insideConstructIfTrue|): Likewise.
(|$insideExpressionIfTrue|): Likewise.
(|$insideFunctorIfTrue|): Likewise.
(|$insideWhereIfTrue|): Likewise.
(|$instantRecord|): Likewise.
(|$InteractiveFrame|): Likewise.
(|$InteractiveMode|): Likewise.
(|$InteractiveTimingStatsIfTrue|): Likewise.
(|$genFVar|): Remove.
(|$ignoreCommentsIfTrue|): Likewise.
(|$InteractiveModemapFrame|): Likewise.
* setq.lisp.pamphlet (|$inLispVM|): Remove.
(|$InteractiveMode|): Likewise.
(|$forceDatabaseUpdate|): Likewise.
(|$InteractiveFrame|): Likewise.
(|$form|): Likewise.
(|$Index|): Likewise.
* sys-constants.boot ($ExitMode): Define.
($exitMode): Move from bootfuns.lisp.pamphlet.
* sys-globals.boot ($form): Likewise.
($fromSpadTrace): Likewise.
($genSDVar): Likewise.
($Index): Likewise.
($inLispVM): Likewise.
($insideCapsuleFunctionIfTrue): Likewise.
($insideCategoryIfTrue): Likewise.
($insideCoerceInteractiveHardIfTrue): Likewise.
($insideConstructIfTrue): Likewise.
($insideExpressionIfTrue): Likewise.
($insideFunctorIfTrue): Likewise.
($insideWhereIfTrue): Likewise.
($instantRecord): Likewise.
($InteractiveFrame): Likewise.
($(InteractiveMode): Likewise.
($InteractiveTimingStatsIftrue): Likewise.
($forceDatabaseUpdate): Likewise.
* spad.lisp.pamphlet (S-PROCESS): Don't bind $exitMode here.
* bootfuns.lisp.pamphlet (|$exitMode|): Move to sys-constants.boot
* wi2.boot.pamphlet (compDefineFunctor1): Likewise.
* spad.lisp.pamphlet (S-PROCESS): Likewise.
* define.boot.pamphlet (compDefineFunctor1): Remove unused
$genFVar.
* varini.boot.pamphlet ($ExitMode): Don't double define here.
Diffstat (limited to 'src/interp/setq.lisp.pamphlet')
-rw-r--r-- | src/interp/setq.lisp.pamphlet | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet index 55279fa9..59943bff 100644 --- a/src/interp/setq.lisp.pamphlet +++ b/src/interp/setq.lisp.pamphlet @@ -124,7 +124,6 @@ (SETQ $FUNNAME NIL) ;; this and next used in COMP,TRAN,1 (SETQ $FUNNAME_TAIL '(())) (SETQ $LASTPREFIX "S:") ;"default setting" -(SETQ |$inLispVM| 'T) (SETQ STAKCOLUMN -1) (SETQ ECHOMETA NIL) (SETQ |$checkParseIfTrue| 'NIL) @@ -138,7 +137,6 @@ (SETQ INITCOLUMN 0) (SETQ |$functionTable| NIL) (SETQ |$spaddefs| NIL) -(SETQ |$InteractiveMode| T) (SETQ |$xeditIsConsole| NIL) (SETQ |$echoInputLines| NIL) ;; This is in SETVART also (SETQ |$Slot1DataBase| (MAKE-HASHTABLE 'ID)) ;; See NRUNTIME BOOT @@ -240,7 +238,6 @@ (SETQ $LISPLIB NIL) (SETQ |$dependeeClosureAlist| NIL) (SETQ |$userModemaps| NIL) -(SETQ |$forceDatabaseUpdate| NIL) ;; see "load" function (SETQ |$spadSystemDisks| '(I J K L)) (SETQ |$functorForm| NIL) @@ -372,10 +369,7 @@ (SETQ $TOP_LEVEL T) (SETQ $NE (LIST (LIST NIL))) -(SETQ |$InteractiveFrame| (LIST (LIST NIL))) (SETQ |$gauss01| '(|gauss| 0 1)) -(SETQ |$form| NIL) -(SETQ |$Index| 0) (SETQ |$suffix| NIL) (SETQ |$coerceIntByMapCounter| 0) (SETQ |$reportCoerce| NIL) |