From beb1d42c90bb0489b98c1dc6816915868506e041 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 2 Sep 2007 14:20:48 +0000
Subject: 	* 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.

---
 src/interp/setq.lisp.pamphlet | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'src/interp/setq.lisp.pamphlet')

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
 
-- 
cgit v1.2.3