From 89cdfc1cf1dd40a8c5faf7fa8820f19bf6828895 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 3 Sep 2007 21:04:18 +0000
Subject: 	* 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.
---
 src/interp/bookvol5.pamphlet | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'src/interp/bookvol5.pamphlet')

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)
-- 
cgit v1.2.3