From f3e1316f943136ab1428ff1caea540c85585bb16 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 27 Aug 2007 06:41:59 +0000
Subject: 	* 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.
---
 src/interp/setq.lisp.pamphlet | 6 ------
 1 file changed, 6 deletions(-)

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

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