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/spad.lisp.pamphlet | 2 --
 1 file changed, 2 deletions(-)

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

diff --git a/src/interp/spad.lisp.pamphlet b/src/interp/spad.lisp.pamphlet
index e37bb12e..074906a9 100644
--- a/src/interp/spad.lisp.pamphlet
+++ b/src/interp/spad.lisp.pamphlet
@@ -358,7 +358,6 @@
 	|$topOp|
 	(|$semanticErrorStack| ())
 	(|$warningStack| ())
-	(|$exitMode| |$EmptyMode|)
 	(|$returnMode| |$EmptyMode|)
 	(|$leaveMode| |$EmptyMode|)
 	(|$leaveLevelStack| ())
@@ -366,7 +365,6 @@
 	|$insideCoerceInteractiveHardIfTrue| |$insideWhereIfTrue|
 	|$insideCategoryIfTrue| |$insideCapsuleFunctionIfTrue| |$form|
 	(|$e| |$EmptyEnvironment|)
-	(|$genFVar| 0)
 	(|$genSDVar| 0)
 	(|$VariableCount| 0)
 	(|$previousTime| (TEMPUS-FUGIT)))
-- 
cgit v1.2.3