diff options
| -rw-r--r-- | src/interp/ChangeLog | 31 | ||||
| -rw-r--r-- | src/interp/bookvol5.pamphlet | 4 | ||||
| -rw-r--r-- | src/interp/bootfuns.lisp.pamphlet | 27 | ||||
| -rw-r--r-- | src/interp/i-syscmd.boot.pamphlet | 1 | ||||
| -rw-r--r-- | src/interp/setq.lisp.pamphlet | 6 | ||||
| -rw-r--r-- | src/interp/setvart.boot.pamphlet | 3 | ||||
| -rw-r--r-- | src/interp/sys-globals.boot | 36 |
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 + |