* i-syscmd.boot.pamphlet ($reportCompilation): Don't define here.

	* bootfuns.lisp.pamphlet (|$PrintOnly|): Move to sys-globals.boot.
	(|$QuickCode|): Likewise.
	(|$QuickLet|): Likewise.
	(|$reportBottomUpFlag|): Likewise.
	(|$reportFlag|): Likewise.
	(|$returnMode|): Likewise.
	(|$SetFunctions|): Likewise.
	(|$slamFlag|): Likewise.
	(|$sourceFileTypes|): Likewise.
	(|$printLoadMsgs|): Likewise.
	(|$reportCompilation|): Likewise.
	(|$reportCoerceIfTrue|): Move to setvart.boot.pamphlet.
	(|$SystemSynonyms|): Remove.
	(|$QuietIfNil|): Remove.
	(|$readingFile|): Likewise.
	(|$reportCoerce|): Likewise.
	(|$reportCompilation|): Likewise.
	(|$reportSpadTrace|): Likewise.
	(|$resolveFlag|): Likewise.
	(|$scanModeFlag|): Likewise.
	(|OptionList|): Likewise.
	(def-boot-var): Likewise.
	* setq.lisp.pamphlet (|$QuickCode|): Don't set here.
	(|$QuickLet|): Likewise.
	(|$reportCoerce|): Likewise.
	* bookvol5.pamphlet (restart): Don't $printLodMsgs here.

7 files changed, 70 insertions, 38 deletions

diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 03a34286..a0726929 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,3 +1,34 @@
+2007-09-03  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* i-syscmd.boot.pamphlet ($reportCompilation): Don't define here.
+
+	* bootfuns.lisp.pamphlet (|$PrintOnly|): Move to sys-globals.boot.
+	(|$QuickCode|): Likewise.
+	(|$QuickLet|): Likewise.
+	(|$reportBottomUpFlag|): Likewise.
+	(|$reportFlag|): Likewise.
+	(|$returnMode|): Likewise.
+	(|$SetFunctions|): Likewise.
+	(|$slamFlag|): Likewise.
+	(|$sourceFileTypes|): Likewise.
+	(|$printLoadMsgs|): Likewise.
+	(|$reportCompilation|): Likewise.
+	(|$reportCoerceIfTrue|): Move to setvart.boot.pamphlet.
+	(|$SystemSynonyms|): Remove.
+	(|$QuietIfNil|): Remove.
+	(|$readingFile|): Likewise.
+	(|$reportCoerce|): Likewise.
+	(|$reportCompilation|): Likewise.
+	(|$reportSpadTrace|): Likewise.
+	(|$resolveFlag|): Likewise.
+	(|$scanModeFlag|): Likewise.
+	(|OptionList|): Likewise.
+	(def-boot-var): Likewise.
+	* setq.lisp.pamphlet (|$QuickCode|): Don't set here.
+	(|$QuickLet|): Likewise.
+	(|$reportCoerce|): Likewise.
+	* bookvol5.pamphlet (restart): Don't $printLodMsgs here.
+
 2007-09-02  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* bootfuns.lisp.pamphlet ($TOP_LEVEL): Move to sys-globals.boot.
diff --git a/src/interp/bookvol5.pamphlet b/src/interp/bookvol5.pamphlet
index c4bd1142..48b2f9d6 100644
--- a/src/interp/bookvol5.pamphlet
+++ b/src/interp/bookvol5.pamphlet
@@ -540,9 +540,6 @@ The [[$previousBindings]] is a copy of the
 compute the [[delta(i)]]s stored in [[$frameRecord]].
 This is part of the undo mechanism.
 
-\subsection{\$printLoadMsgs}
-The [[$printLoadMsgs]] variable is set to [[T]] in [[restart]].
-
 \subsection{\$PrintCompilerMessageIfTrue}
 The [[$PrintCompilerMessageIfTrue]] variable is set to [[NIL]] in [[spad]].
 
@@ -707,7 +704,6 @@ We do not care that tail recursion occurs.
       (setq |$SpadServer| t)))))
   (setq |$IOindex| 1)
   (setq |$InteractiveFrame| (|makeInitialModemapFrame|))
-  (setq |$printLoadMsgs| t)
 #+(and :lucid :ibm/370)
   (setq vmlisp::$current-directory "")
 #-(and :lucid :ibm/370)
diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet
index d06110cd..e1717a1f 100644
--- a/src/interp/bootfuns.lisp.pamphlet
+++ b/src/interp/bootfuns.lisp.pamphlet
@@ -99,11 +99,6 @@ offer it as extensions.
 
 <<non-portable-codes>>
 
-(defmacro def-boot-var (p where)
-  `(compiler-let nil
-     (defparameter ,p nil ,where)
-     (export '(,p) "BOOT")))
-
 (defmacro def-boot-val (p val where)
   `(compiler-let nil
      (defparameter ,p ,val ,where)
@@ -121,28 +116,6 @@ offer it as extensions.
 	)))))
 	"Compiler>CUtil.boot")
 (def-boot-val $LISPLIB nil		    "whether to produce a lisplib or not")
-(def-boot-var |OptionList|			    "???")
-(def-boot-val |$printLoadMsgs|	't	    "Interpreter>SetVarT.boot")
-(def-boot-var |$PrintOnly|			    "Compiler>LispLib.boot")
-(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-var |$reportBottomUpFlag|		    "Interpreter>SetVarT.boot")
-(def-boot-var |$reportCoerce|			    "???")
-(def-boot-var |$reportCoerceIfTrue|		    "???")
-(def-boot-var |$reportCompilation|		    "???")
-(def-boot-var |$reportFlag|			    "Interpreter>SetVars.boot")
-(def-boot-val |$reportSpadTrace| ()    "report list of traced functions")
-(def-boot-var |$resolveFlag|			    "Interpreter>SetVars.boot")
-(def-boot-var |$returnMode|			    "???")
-(def-boot-var |$scanModeFlag|			    "???")
-(def-boot-val |$SetFunctions| nil  "checked in SetFunctionSlots")
-(def-boot-var |$slamFlag|			    "Interpreter>SetVars.boot")
-(def-boot-val |$sourceFileTypes|
-	  '(SPAD BOOT LISP LISP370 META)
-	  "Interpreter>System.boot")
 (def-boot-val |$spadLibFT| 'LISPLIB		    "???")
 @
 \eject
diff --git a/src/interp/i-syscmd.boot.pamphlet b/src/interp/i-syscmd.boot.pamphlet
index 9a80eb4a..6bd8b099 100644
--- a/src/interp/i-syscmd.boot.pamphlet
+++ b/src/interp/i-syscmd.boot.pamphlet
@@ -131,7 +131,6 @@ This will have to be pushed down from the top level Makefile.
 --% Utility Variable Initializations
 
 SETANDFILEQ($cacheAlist,nil)
-SETANDFILEQ($reportCompilation,nil)
 SETANDFILEQ($compileRecurrence,true)
 SETANDFILEQ($errorReportLevel,'warning)
 SETANDFILEQ($sourceFileTypes,'(INPUT SPAD BOOT LISP LISP370 META))
diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet
index c8d61b0c..06d2e990 100644
--- a/src/interp/setq.lisp.pamphlet
+++ b/src/interp/setq.lisp.pamphlet
@@ -318,10 +318,6 @@
 (SETQ |$DomainsWithoutLisplibs| '(
   CAPSULE |Union| |Record| |SubDomain| |Mapping| |Enumeration| |Domain| |Mode|))
 
-(SETQ |$QuickCode| T)
-	 ;" controls generation of QREFELT etc."
-(SETQ |$QuickLet| T)
-	 ;" controls generation of LET tracing."
 (SETQ |$tracedMapSignatures| ())
 (SETQ |$highlightAllowed| 'T)
 	 ;" used in BRIGHTPRINT and is a )set variable"
@@ -344,8 +340,6 @@
 (SETQ $NE (LIST (LIST NIL)))
 (SETQ |$suffix| NIL)
 (SETQ |$coerceIntByMapCounter| 0)
-(SETQ |$reportCoerce| NIL)
-(SETQ |$reportCompilation| NIL)
 (SETQ |$prefix| NIL)
 (SETQ |$formalArgList| ())
 (SETQ |$TriangleVariableList|
diff --git a/src/interp/setvart.boot.pamphlet b/src/interp/setvart.boot.pamphlet
index 546feeff..296488c2 100644
--- a/src/interp/setvart.boot.pamphlet
+++ b/src/interp/setvart.boot.pamphlet
@@ -2374,6 +2374,9 @@ SETANDFILEQ($setOptions,'(
  ))
 
 --%
+SETANDFILEQ($reportCoerceIfTrue,NIL)
+
+--%
 printLoadMessages u ==
   MEMQ(u, '(%display% %describe%)) =>
     ($printLoadMsgs => '"on"; '"off")
diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot
index 3c1c77cb..069de2cc 100644
--- a/src/interp/sys-globals.boot
+++ b/src/interp/sys-globals.boot
@@ -289,3 +289,39 @@ $OLDLINE := nil
 ++
 $SPAD := false
 
+++
+$PrintOnly := false
+
+++
+$QuickCode := true
+
+++
+$QuickLet := true
+
+++
+$reportBottomUpFlag := false
+
+++
+$reportFlag := false
+
+++
+$returnMode := $EmptyMode
+
+++
+$SetFunctions := nil
+
+++
+++ FIXME: Eventually remove.
+$slamFlag := false
+
+++
+++ FIXME: Eventually remove.
+$sourceFileTypes := ["SPAD"]
+
+++
+++ If true, make the system verbose about object files being loaded
+$printLoadMsgs := false
+
+++
+$reportCompilation := false
+