diff options
| -rw-r--r-- | src/interp/ChangeLog | 15 | ||||
| -rw-r--r-- | src/interp/bootfuns.lisp.pamphlet | 8 | ||||
| -rw-r--r-- | src/interp/patches.lisp.pamphlet | 1 | ||||
| -rw-r--r-- | src/interp/sys-globals.boot | 13 |
4 files changed, 28 insertions, 9 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 79897c16..be8b92e5 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,5 +1,20 @@ 2007-08-26 Gabriel Dos Reis <gdr@cs.tamu.edu> + * sys-globals.boot ($IOindex): Move from bootfuns.lisp.pamphlet. + ($inputPromptType): Likewise. + ($whereList): Likewise. + ($warningStack): Likewise. + + * patches.lisp.pamphlet (|$inputPromptType|): Don't set here. + + * bootfuns.lisp.pamphlet ($Type): Remove. + (|$warningStack|): Move to sys-globals.boot. + (|$whereList|): Likewise. + (|$inputPromptType|): Likewise. + (|$IOindex|): Likewise. + +2007-08-26 Gabriel Dos Reis <gdr@cs.tamu.edu> + * Makefile.pamphlet (<<apply.o (AUTO from OUT)>>): Remove. (<<bootlex.o (AUTO from OUT)>>): Likewise. (<<def.o (AUTO from OUT)>>): Likewise. diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet index af96a757..93b4222b 100644 --- a/src/interp/bootfuns.lisp.pamphlet +++ b/src/interp/bootfuns.lisp.pamphlet @@ -249,7 +249,6 @@ offer it as extensions. (def-boot-var |$traceNoisely| "Interpreter>Trace.boot") (def-boot-var |$TranslateOnly| "???") (def-boot-var |$tripleCache| "Compiler>Compiler.boot") -(def-boot-var $Type "???") (def-boot-val |$updateCatTableIfTrue| T "update category table on load") (def-boot-var |$updateIfTrue| @@ -258,13 +257,6 @@ offer it as extensions. "Determines whether to use BF as default floating point type.") (def-boot-val |$useDCQnotLET| () "checked in DEF-LET for use of DCQ") (def-boot-var |$VariableCount| "???") -(def-boot-var |$warningStack| "???") -(def-boot-val |$whereList| () "referenced in format boot formDecl2String") - - -(def-boot-val |$inputPromptType| '|step| "checked in MKPROMPT") -(def-boot-val |$IOindex| 0 "step counter") - @ \eject \begin{thebibliography}{99} diff --git a/src/interp/patches.lisp.pamphlet b/src/interp/patches.lisp.pamphlet index 142d19cc..0ca525ee 100644 --- a/src/interp/patches.lisp.pamphlet +++ b/src/interp/patches.lisp.pamphlet @@ -138,7 +138,6 @@ previous definition. (setq |$useInternalHistoryTable| T) (defvar |$internalHistoryTable| ()) -(setq |$inputPromptType| '|step|) (setq |nullstream| '|nullstream|) (setq |nonnullstream| '|nonnullstream|) (defun |cpCms| (prefix &optional (string (|getSystemCommandLine|))) diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot index c7fa340a..7f78371c 100644 --- a/src/interp/sys-globals.boot +++ b/src/interp/sys-globals.boot @@ -102,3 +102,16 @@ $evalDomain := false ++ $exitModeStack := [] + +++ +$IOindex := 0 + +++ +$inputPromptType := "step" + +++ +$whereList := [] + +++ +$warningStack := [] + |