From 425fcbfda67e0e702cf61dcaa5a83f0809b7ebd8 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 29 Aug 2007 13:38:42 +0000
Subject: 	* sys-globals.boot ($leaveLevelStack): Move from 
 bootfuns.lisp.pamphlet. 	($letAssoc): Likewise. 	($libFile): Likewise. 
 ($lisplibForm): Likewise. 	($lisplibKind): Likewise. 
 ($lisplibModemapAlist): Likewise. 	($lisplibModemap): Likewise. 
 ($lisplibOperationAlist): Likewise. 	($lisplibSignatureAlist): Likewise. 
 ($lisplibVariableAlist): Likewise. 	($mapSubNameAlist): Likewise. 
 ($mathTrace): Lilkewise. 	($mathTraceList): Likewise.

	* sys-constants.boot ($exitMode): Likewise.
	($leaveMode): Likewise.
	($noEnv): Likewise.

	* trace.boot.pamphlet ($lastUntraced): Likewise.

	* spad.lisp.pamphlet (|$leaveMode|): Don't bind here.

	* setq.lisp.pamphlet (|$Lisp|): Remove.
	(|$noEnv|): Don't set here.
	(|$lastUntraced|): Likewise.
	(|$mostRecentOpAlist|): Likewise.
	(|$mathTraceList|): Likewise.
	(|$letAssoc|): Likewise.

	* bootfuns.lisp.pamphlet (|$noEnv|): Move to sys-constants.boot.
	(|$leaveMode|): Likewise.
	(|$lastUntraced|): Move to trace.boot.pamphlet.
	(|$leaveLevelStack|): Move to sys-globals.boot.
	(|$letAssoc|): Likewise.
	(|$libFile|): Likewise.
	(|$lisplibDomainDependents|): Likewise.
	(|$lisplibForm|): Likewise.
	(|$lisplibKind|): Likewise.
	(|$lisplibModemapAlist|): Likewise.
	(|$lisplibModemap|): Likewise.
	(|$lisplibOperationAlist|): Likewise.
	(|$lisplibSignatureAlist|): Likewise.
	(|$lisplibVariableAlist|): Likewise.
	(|$mapSubNameAlist|): Likewise.
	(|$mathTrace|): Likewise.
	(|$mathTraceList|): Likewise.

	(|$Lisp|): Remove.
	(|$lisplibDependentCategories|): Likewise.
	(|$lisp2lispRenameAssoc|): Likewise.
	(|$ModemapFrame|): Likewise.
	(|$mostRecentOpAlist|): Likewise.
---
 src/interp/bootfuns.lisp.pamphlet | 22 ----------------------
 1 file changed, 22 deletions(-)

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

diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet
index 7d003826..8c4d1afc 100644
--- a/src/interp/bootfuns.lisp.pamphlet
+++ b/src/interp/bootfuns.lisp.pamphlet
@@ -128,34 +128,12 @@ offer it as extensions.
 (def-boot-var $FunName_Tail			    "???")
 (def-boot-val |$gauss01| '(|gauss| 0 1)		    "???")
 (def-boot-val $lastprefix "S-"                      "???")
-(def-boot-val |$lastUntraced| NIL      "Used for )restore option of )trace.")
-(def-boot-var |$leaveLevelStack|		    "???")
-(def-boot-var |$leaveMode|			    "???")
-(def-boot-val |$letAssoc| NIL	    "Used for trace of assignments in SPAD code.")
-(def-boot-var |$libFile|			    "Compiler>LispLib.boot")
 (def-boot-var $LINENUMBER			    "???")
 (def-boot-var $linestack			    "???")
-(def-boot-val |$Lisp| '(|Lisp|)			    "???")
 (def-boot-val $LISPLIB nil		    "whether to produce a lisplib or not")
-(def-boot-var |$lisplibDependentCategories|	    "Compiler>LispLib.boot")
-(def-boot-var |$lisplibDomainDependents|	    "Compiler>LispLib.boot")
-(def-boot-var |$lisplibForm|			    "Compiler>LispLib.boot")
-(def-boot-var |$lisplibKind|			    "Compiler>LispLib.boot")
-(def-boot-var |$lisplibModemapAlist|		    "Compiler>LispLib.boot")
-(def-boot-var |$lisplibModemap|			    "Compiler>LispLib.boot")
-(def-boot-var |$lisplibOperationAlist|		    "Compiler>LispLib.boot")
-(def-boot-var |$lisplibSignatureAlist|		    "Compiler>LispLib.boot")
-(def-boot-var |$lisplibVariableAlist|		    "Compiler>LispLib.boot")
-(def-boot-var |$lisp2lispRenameAssoc|		    "???")
-(def-boot-var |$mapSubNameAlist|		    "Interpreter>Trace.boot")
-(def-boot-var |$mathTrace|			    "Interpreter>Trace.boot")
-(def-boot-var |$mathTraceList|		    "Controls mathprint output for )trace.")
 (def-boot-var $maxlinenumber			    "???")
-(def-boot-var |$ModemapFrame|			    "???")
-(def-boot-var |$mostRecentOpAlist|		    "???")
 (def-boot-var $NBOOT				    "???")
 (def-boot-var $NEWLINSTACK			    "???")
-(def-boot-var |$noEnv|				    "???")
 (def-boot-val $num_of_meta_errors 0		    "Number of errors seen so far")
 (def-boot-var $OLDLINE				    "Used to output command lines.")
 (def-boot-val |$oldTime| 0			    "???")
-- 
cgit v1.2.3