aboutsummaryrefslogtreecommitdiff
path: root/src/interp/setq.lisp.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-09-02 14:20:48 +0000
committerdos-reis <gdr@axiomatics.org>2007-09-02 14:20:48 +0000
commitbeb1d42c90bb0489b98c1dc6816915868506e041 (patch)
treedaede1c979b8d22a06b3cf5a643bebe376dcd1b4 /src/interp/setq.lisp.pamphlet
parent98cd1f5a4b6469760944d4455c04185d571c67ed (diff)
downloadopen-axiom-beb1d42c90bb0489b98c1dc6816915868506e041.tar.gz
* sys-globals.boot ($VariableCount): Move from
bootfuns.lisp.pamphlet. ($suffix): Likewise. ($useBFasDefault): Likewise. ($semanticErrorStack): Likewise. ($tracedModemap): Likewise. ($tracedSpadModemap): Likewise. ($traceletFunctions): Likewise. * bootfuns.lisp.pamphlet (|$VariableCount|): Move to sys-globals.boot. (|$suffix|): Likewise. (|$useBFasDefault|): Likewise. (|$semanticErrorStack|): Likewise. (|$tracedModemap|): Likewise. (|$tracedSpadModemap|): Likewise. (|$traceletFunctions|): Likewise. (|$TraceFlag|): Move to debug.lisp.pamphlet. (|$traceDomains|): Likewise. (|$systemLastChanged|): Remove. (|$systemCreation|): Likewise. (|$StreamIndex|): Remove. (|$spadSystemDisks|): Likewise. (|$spadOpList|): Likewise. (|$traceNoisely|): Remove from here. (|$timerOn|): Move to debug.lisp.pamphlet. * setq.lisp.pamphlet (|$systemLastChanged|): Remove. (|$systemCreation|): Likewise. * setq.lisp.pamphlet (|$useBFasDefault|): Don't set here. * setq.lisp.pamphlet (|$reportExitModeStack|): Likewise. * setq.lisp.pamphlet (|$spadSystemDisks|): Likewise. * spad.lisp.pamphlet (|$useBFasDefault|): Likewise.
Diffstat (limited to 'src/interp/setq.lisp.pamphlet')
-rw-r--r--src/interp/setq.lisp.pamphlet11
1 files changed, 0 insertions, 11 deletions
diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet
index 89e872a4..e36c5b8e 100644
--- a/src/interp/setq.lisp.pamphlet
+++ b/src/interp/setq.lisp.pamphlet
@@ -230,15 +230,9 @@
;; These were originally in INIT LISP
-(SETQ |$systemCreation|
- (STRCONC (SUBSTRING (CURRENTTIME) 0 8) " at "
- (SUBSTRING (CURRENTTIME) 8 5)))
-(SETQ |$systemLastChanged| |$systemCreation|)
-
(SETQ $LISPLIB NIL)
(SETQ |$dependeeClosureAlist| NIL)
(SETQ |$userModemaps| NIL)
-(SETQ |$spadSystemDisks| '(I J K L))
(SETQ |$functorForm| NIL)
(SETQ |$InitialCommandSynonymAlist| '(
@@ -366,7 +360,6 @@
(SETQ |$reportCompilation| NIL)
(SETQ |$streamCount| 0)
(SETQ |$streamIndexing| NIL)
-(SETQ |$reportExitModeStack| NIL)
(SETQ |$prefix| NIL)
(SETQ |$formalArgList| ())
(SETQ |$TriangleVariableList|
@@ -448,10 +441,6 @@
;; ---- end of initial settings for variables used in test.boot
-;; Next flag determines whether to use BF as default floating point
-;; type. (actually, now means NewFloat)
-
-(SETQ |$useBFasDefault| 'T)
;; Next are initial values for fluid variables in G-BOOT BOOT