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

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

diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet
index aa3ceda3..55279fa9 100644
--- a/src/interp/setq.lisp.pamphlet
+++ b/src/interp/setq.lisp.pamphlet
@@ -347,8 +347,6 @@
  ;" used for )restore option of )trace."
 (SETQ |$mathTraceList| NIL)
 	 ;" controls mathprint output for )trace."
-(SETQ |$domainTraceNameAssoc| NIL)
-	;"alist of traced domains"
 (SETQ |$tracedMapSignatures| ())
 (SETQ |$highlightAllowed| 'T)
 	 ;" used in BRIGHTPRINT and is a )set variable"
@@ -358,7 +356,6 @@
 (SETQ |$mostRecentOpAlist| NIL)
 (SETQ |$noEnv| NIL)
 (SETQ |$opFilter| NIL)	 ;" used to |/s a function "
-(SETQ |$evalDomain| NIL)
 
 (SETQ |$AnonymousFunction| '(|AnonymousFunction|))
 (SETQ |$Any|   '(|Any|))
@@ -379,7 +376,6 @@
 (SETQ |$gauss01| '(|gauss| 0 1))
 (SETQ |$form| NIL)
 (SETQ |$Index| 0)
-(SETQ |$false| NIL)
 (SETQ |$suffix| NIL)
 (SETQ |$coerceIntByMapCounter| 0)
 (SETQ |$reportCoerce| NIL)
-- 
cgit v1.2.3