* bootfuns.lisp.pamphlet (|$algebraList|): Remove unused variable.

	(|$xyStack|): Likewise.
	(|$xyMin|): Likewise.
	(|$xyMax|): Likewise.
	(|$xyInitial|): Likewise.
	(|$xyCurrent|): Likewise.
	(|$xeditIsConsole|): Likewise.
	(|$xCount|): Likewise.
	(|$BasicDomains|): Likewise.
	(|$FontTable|): Likewise.
	(|$CommonDomains|): Likewise.
	(|$PolyDomains|): Likewise.
	(|$leftPren|): Likewise.
	(|$rightPren|): Likewise.
	(|$tempCategoryTable|): Likewise.
	(|$domainsWithUnderDomains|): Likewise.
	(|$hasCategoryTable|): Likewise.
	(|$hasYield|): Likewise.
	(|$LastCxArg|): Likewise.
	(|$NETail|): Likewise.
	(|$polyDefaultAssoc|): Likewise.
	(|$brightenCommentsFlag|): Likewise.
	(|$brightenCommentsIfTrue|): Likewise.
	(|$UserSynonyms|): Likewise.
	(|$report3|): Likewise.
	(|$croakIfTrue|): Likewise.
	* setq.lisp.pamphlet (|$xeditIsConsole|): Likewise.
	(|$BasicDomains|): Likewise.
	(|$FontTable|): Likewise.
	(|$leftPren|): Likewise.
	(|$rightPren|): Likewise.
	(|$NETail|): Likewise.
	(|$croakIfTrue|): Likewise.

3 files changed, 38 insertions, 57 deletions

diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index b174fcdf..cb827526 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,5 +1,41 @@
 2007-08-22  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
+	* bootfuns.lisp.pamphlet (|$algebraList|): Remove unused variable.
+	(|$xyStack|): Likewise.
+	(|$xyMin|): Likewise.
+	(|$xyMax|): Likewise.
+	(|$xyInitial|): Likewise.
+	(|$xyCurrent|): Likewise.
+	(|$xeditIsConsole|): Likewise.
+	(|$xCount|): Likewise.
+	(|$BasicDomains|): Likewise.
+	(|$FontTable|): Likewise.
+	(|$CommonDomains|): Likewise.
+	(|$PolyDomains|): Likewise.
+	(|$leftPren|): Likewise.
+	(|$rightPren|): Likewise.
+	(|$tempCategoryTable|): Likewise.
+	(|$domainsWithUnderDomains|): Likewise.
+	(|$hasCategoryTable|): Likewise.
+	(|$hasYield|): Likewise.
+	(|$LastCxArg|): Likewise.
+	(|$NETail|): Likewise.
+	(|$polyDefaultAssoc|): Likewise.
+	(|$brightenCommentsFlag|): Likewise.
+	(|$brightenCommentsIfTrue|): Likewise.
+	(|$UserSynonyms|): Likewise.
+	(|$report3|): Likewise.
+	(|$croakIfTrue|): Likewise.
+	* setq.lisp.pamphlet (|$xeditIsConsole|): Likewise.
+	(|$BasicDomains|): Likewise.
+	(|$FontTable|): Likewise.
+	(|$leftPren|): Likewise.
+	(|$rightPren|): Likewise.
+	(|$NETail|): Likewise.
+	(|$croakIfTrue|): Likewise.
+
+2007-08-22  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
 	* bootfuns.lisp.pamphlet ($bootStrapMode): Move to sys-globals.boot.
 	($BreakMode): Likewise.
 	($cacheAlist): Likewise.
diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet
index 099cd042..ba3ceb97 100644
--- a/src/interp/bootfuns.lisp.pamphlet
+++ b/src/interp/bootfuns.lisp.pamphlet
@@ -110,19 +110,6 @@ offer it as extensions.
      (export '(,p) "BOOT")))
 
 
-(def-boot-val |$algebraList|
-	'(|QuotientField| |Polynomial|
-	  |UnivariatePoly|
-	  |MultivariatePolynomial|
-	  |DistributedMultivariatePolynomial|
-	  |HomogeneousDistributedMultivariatePolynomial|
-	  |Gaussian| |SquareMatrix|
-	  |RectangularMatrix|)			"???")
-(def-boot-val |$BasicDomains|
-	  '(|Integer| |Float| |Symbol|
-	    |Boolean| |String|)			"???")
-(def-boot-var |$brightenCommentsFlag|		    "???")
-(def-boot-var |$brightenCommentsIfTrue|		    "???")
 ;  modemap:==  ( <map> (p e) (p e) ... (p e) )
 ;  modemaplist:= ( modemap ... )
 
@@ -133,17 +120,8 @@ offer it as extensions.
       (((|Category|) (|Category|) (|List| |Category|)) (|Category|)) (T *))
 	)))))
 	"Compiler>CUtil.boot")
-(def-boot-val |$CommonDomains|
-	 '(|Record| |Union| |List| |Vector|
-	   |String| |Float| |Integer|
-	   |NonNegativeInteger| |Expression|
-	   |NonPositiveInteger|
-	   |PositiveInteger| |SmallInteger|
-	   |Boolean|) "???")
-
 (def-boot-var |$compileMapFlag|			    "Interpreter>SetVars.boot")
 (def-boot-var |$constructorsNotInDatabase|	    "Interpreter>Database.boot")
-(def-boot-var |$croakIfTrue|			    "See moan in U.")
 (def-boot-val $delay 0				    "???")
 (def-boot-var $Directory			    "???")
 (def-boot-var $DISPLAY				    "???")
@@ -154,7 +132,6 @@ offer it as extensions.
 (def-boot-var |$exitMode|			    "???")
 (def-boot-var |$exitModeStack|			    "???")
 (def-boot-val |$false| NIL			    "???")
-(def-boot-val |$FontTable| '(|FontTable|)	    "???")
 (def-boot-var |$forceDatabaseUpdate|		    "See load function.")
 (def-boot-var |$form|				    "???")
 (def-boot-var |$fromSpadTrace|			    "Interpreter>Trace.boot")
@@ -164,8 +141,6 @@ offer it as extensions.
 (def-boot-val |$gauss01| '(|gauss| 0 1)		    "???")
 (def-boot-var |$genFVar|			    "???")
 (def-boot-val |$genSDVar| 0	    "counter for genSomeVariable" )
-(def-boot-val |$hasCategoryTable| (MAKE-HASHTABLE 'UEQUAL) "???")
-(def-boot-var |$hasYield|			    "???")
 (def-boot-var |$ignoreCommentsIfTrue|		    "???")
 (def-boot-var |$Index|				    "???")
 (def-boot-var |$inLispVM|			    "Interpreter>Eval.boot")
@@ -182,12 +157,10 @@ offer it as extensions.
 (def-boot-var |$InteractiveMode|		    "Interactive>System.boot")
 (def-boot-val |$InteractiveModemapFrame| '((NIL))   "???")
 (def-boot-var |$InteractiveTimingStatsIfTrue|	    "???")
-(def-boot-var |$LastCxArg|			    "???")
 (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 |$leftPren| "("                       "For use in SAY expressions.")
 (def-boot-val |$letAssoc| NIL	    "Used for trace of assignments in SPAD code.")
 (def-boot-var |$libFile|			    "Compiler>LispLib.boot")
 (def-boot-var $LINENUMBER			    "???")
@@ -211,7 +184,6 @@ offer it as extensions.
 (def-boot-var |$ModemapFrame|			    "???")
 (def-boot-var |$mostRecentOpAlist|		    "???")
 (def-boot-var $NBOOT				    "???")
-(def-boot-val |$NETail| (CONS |$EmptyEnvironment| NIL) "???")
 (def-boot-var $NEWLINSTACK			    "???")
 (def-boot-var |$noEnv|				    "???")
 (def-boot-val $num_of_meta_errors 0		    "Number of errors seen so far")
@@ -225,13 +197,6 @@ offer it as extensions.
 (def-boot-var |$OutsideStringIfTrue|		    "???")
 (def-boot-var |$PolyMode|			    "???")
 (def-boot-val |$Polvar| '(WRAPPED . ((1 . 1)))	    "???")
-(def-boot-var |$polyDefaultAssoc|		    "???")
-(def-boot-val |$PolyDomains|
-	'(|Polynomial| |MultivariatePolynomial|
-	  |UnivariatePoly|
-	  |DistributedMultivariatePolynomial|
-	  |HomogeneousDistributedMultivariatePolynomial|)
-	"???")
 (def-boot-var |$postStack|			    "???")
 (def-boot-var |$prefix|				    "???")
 (def-boot-val |$PrettyPrint| nil "if t generated code is prettyprinted")
@@ -246,13 +211,11 @@ offer it as extensions.
 (def-boot-val |$printConStats| nil  "display constructor cache totals")
 (def-boot-val |$printLoadMsgs|	't	    "Interpreter>SetVarT.boot")
 (def-boot-var |$PrintOnly|			    "Compiler>LispLib.boot")
-(def-boot-val |$UserSynonyms| ()    "list of user defined synonyms")
 (def-boot-val |$SystemSynonyms| () "list of system defined synonyms")
 (def-boot-val |$QuickCode| NIL	    "Controls generation of QREFELT, etc.")
 (def-boot-val |$QuickLet| NIL	    "Set to T for no LET tracing.")
 (def-boot-var |$QuietIfNil|			    "???")
 (def-boot-var |$readingFile|			    "???")
-(def-boot-val |$report3| nil	 "addMap report info")
 (def-boot-var |$reportBottomUpFlag|		    "Interpreter>SetVarT.boot")
 (def-boot-var |$reportCoerce|			    "???")
 (def-boot-var |$reportCoerceIfTrue|		    "???")
@@ -262,7 +225,6 @@ offer it as extensions.
 (def-boot-val |$reportSpadTrace| ()    "report list of traced functions")
 (def-boot-var |$resolveFlag|			    "Interpreter>SetVars.boot")
 (def-boot-var |$returnMode|			    "???")
-(def-boot-val |$rightPren| ")"                      "???")
 (def-boot-var |$scanModeFlag|			    "???")
 (def-boot-var |$semanticErrorStack|		    "???")
 (def-boot-val |$SetFunctions| nil  "checked in SetFunctionSlots")
@@ -282,7 +244,6 @@ offer it as extensions.
 (def-boot-val |$systemCreation| (currenttime)	    "???")
 (def-boot-val |$systemLastChanged|
 	  |$systemCreation|			"???")
-(def-boot-val |$tempCategoryTable| (MAKE-HASHTABLE 'UEQUAL) "???")
 (def-boot-val |$timerOn| t			    "???")
 (def-boot-var |$topOp|				   "See displayPreCompilationErrors")
 (def-boot-var $TOKSTACK				    "???")
@@ -307,16 +268,8 @@ offer it as extensions.
 (def-boot-var |$VariableCount|			    "???")
 (def-boot-var |$warningStack|			    "???")
 (def-boot-val |$whereList| () "referenced in format boot formDecl2String")
-(def-boot-var |$xCount|				    "???")
-(def-boot-var |$xeditIsConsole|			    "???")
-(def-boot-var |$xyCurrent|			    "???")
-(def-boot-var |$xyInitial|			    "???")
-(def-boot-var |$xyMax|				    "???")
-(def-boot-var |$xyMin|				    "???")
-(def-boot-var |$xyStack|			    "???")
-
-(def-boot-val |$domainsWithUnderDomains|
-	  (mapcar #'car |$underDomainAlist|)	"???")
+
+
 (def-boot-val |$inputPromptType| '|step|  "checked in MKPROMPT")
 (def-boot-val |$IOindex| 0		   "step counter")
 
diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet
index 4e396b5d..aa3ceda3 100644
--- a/src/interp/setq.lisp.pamphlet
+++ b/src/interp/setq.lisp.pamphlet
@@ -353,16 +353,10 @@
 (SETQ |$highlightAllowed| 'T)
 	 ;" used in BRIGHTPRINT and is a )set variable"
 
-(SETQ |$leftPren| "(")    ;;[for use in SAY expressions]
-(SETQ |$rightPren| ")")
-
-(|SETQ| |$BasicDomains| '(|Integer| |Float| |Symbol| |Boolean| |String|))
-
 (SETQ |$PrintCompilerMessagesIfTrue| NIL)
 (SETQ |$printStorageIfTrue| NIL) ;; storage info disabled in common lisp
 (SETQ |$mostRecentOpAlist| NIL)
 (SETQ |$noEnv| NIL)
-(SETQ |$croakIfTrue| NIL) ;" see moan in UT"
 (SETQ |$opFilter| NIL)	 ;" used to |/s a function "
 (SETQ |$evalDomain| NIL)
 
@@ -371,7 +365,6 @@
 
 (SETQ |$OutputForm| '(|OutputForm|))
 
-(SETQ |$FontTable| '(|FontTable|))
 (SETQ |$ComplexInteger| (LIST '|Complex| |$Integer|))
 (SETQ |$QuotientField| '|Fraction|)
 (SETQ |$FunctionalExpression| '|Expression|)
@@ -384,7 +377,6 @@
 (SETQ $NE (LIST (LIST NIL)))
 (SETQ |$InteractiveFrame| (LIST (LIST NIL)))
 (SETQ |$gauss01| '(|gauss| 0 1))
-(SETQ |$NETail| (CONS |$EmptyEnvironment| NIL))
 (SETQ |$form| NIL)
 (SETQ |$Index| 0)
 (SETQ |$false| NIL)