From 89cdfc1cf1dd40a8c5faf7fa8820f19bf6828895 Mon Sep 17 00:00:00 2001 From: dos-reis 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/ChangeLog | 31 +++++++++++++++++++++++++++++++ src/interp/bookvol5.pamphlet | 4 ---- src/interp/bootfuns.lisp.pamphlet | 27 --------------------------- src/interp/i-syscmd.boot.pamphlet | 1 - src/interp/setq.lisp.pamphlet | 6 ------ src/interp/setvart.boot.pamphlet | 3 +++ src/interp/sys-globals.boot | 36 ++++++++++++++++++++++++++++++++++++ 7 files changed, 70 insertions(+), 38 deletions(-) (limited to 'src') 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 + + * 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 * 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. <> -(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 @@ -2373,6 +2373,9 @@ SETANDFILEQ($setOptions,'( <> )) +--% +SETANDFILEQ($reportCoerceIfTrue,NIL) + --% printLoadMessages u == MEMQ(u, '(%display% %describe%)) => 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 + -- cgit v1.2.3