From 45f656f12b8a880be7ed618a5fcb86fb639f1285 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 26 Aug 2007 12:41:20 +0000
Subject: 	* bootfuns.lisp.pamphlet (|$constructorsNotInDatabase|):
 Remove. 	(|$DomainFrame|): Remove. 	(|$eltIfNil|): Remove. 
 (|$compileMapFlag|): Remove. 	(|$evalDomain|): Don't set here. 
 (|$false|): Move to sys-constants.boot. 	(|$domainTraceNameAssoc|):
 Move to sys-globals.boot. 	(|$evalDomain|): Move to sys-globals.boot. 
 (|$exitModeStack|): Move to sys-globals.boot 	* pspad1.boot.pamphlet
 (lisp2Boot): Don't declare $eltIfNil anymore. 	* setvars.boot.pamphlet
 (resetWorkspaceVariables): Don't set 	anymore. 	* setq.lisp.pamphlet
 (|$domainTraceNameAssoc|): Don't set here. 	* spad.lisp.pamphlet
 (S-PROCESS): Don't bind |$DomainFrame| anymore. 	(S-PROCESS): Set
 $exitModeStack to nil. 	(|$false|): Don't set here.

---
 src/interp/spad.lisp.pamphlet | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src/interp/spad.lisp.pamphlet b/src/interp/spad.lisp.pamphlet
index 849e397f..e37bb12e 100644
--- a/src/interp/spad.lisp.pamphlet
+++ b/src/interp/spad.lisp.pamphlet
@@ -359,14 +359,12 @@
 	(|$semanticErrorStack| ())
 	(|$warningStack| ())
 	(|$exitMode| |$EmptyMode|)
-	(|$exitModeStack| ())
 	(|$returnMode| |$EmptyMode|)
 	(|$leaveMode| |$EmptyMode|)
 	(|$leaveLevelStack| ())
 	$TOP_LEVEL |$insideFunctorIfTrue| |$insideExpressionIfTrue|
 	|$insideCoerceInteractiveHardIfTrue| |$insideWhereIfTrue|
 	|$insideCategoryIfTrue| |$insideCapsuleFunctionIfTrue| |$form|
-	(|$DomainFrame| '((NIL)))
 	(|$e| |$EmptyEnvironment|)
 	(|$genFVar| 0)
 	(|$genSDVar| 0)
@@ -374,6 +372,7 @@
 	(|$previousTime| (TEMPUS-FUGIT)))
     (prog ((CURSTRM CUROUTSTREAM) |$s| |$x| |$m| u)
 	  (declare (special CURSTRM |$s| |$x| |$m| CUROUTSTREAM))
+	  (SETQ |$exitModeStack| ())
 	  (SETQ $TRACEFLAG T)
 	  (if (NOT X) (RETURN NIL))
 	  (setq X (if $BOOT (DEF-RENAME (|new2OldLisp| X))
-- 
cgit v1.2.3