diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-08-30 05:33:17 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-08-30 05:33:17 +0000 |
| commit | c866e56d51d4b19c8e9526137e8ffae5db233ea9 (patch) | |
| tree | afcc6f000842a4151936ba6db47bf7532927db16 /src/interp/spad.lisp.pamphlet | |
| parent | 425fcbfda67e0e702cf61dcaa5a83f0809b7ebd8 (diff) | |
| download | open-axiom-c866e56d51d4b19c8e9526137e8ffae5db233ea9.tar.gz | |
* sys-globals.boot ($prefix): Move from bootfuns.lisp.pamphlet.
($PrettyPrint): Likewise.
($previousTime): Likewise.
* bootfuns.lisp.pamphlet (|$prefix|): Move to sys-globals.boot.
(|$PrettyPrint|): Likewise.
(|$previousTime|): Likewise.
(|$postStack|): Move to postpar.boot.pamphlet.
(|$OneCoef|): Remove.
(|$operationNameList|): Likewise.
(|$opFilter|): Likewise.
(|$optionAlist|): Likewise.
(|$OutsideStringIfTrue|): Likewise.
(|$PolyMode|): Likewise.
(|$Polvar|): Likewise.
(|$optimizableDomainNames|): Likewise.
(|$PrintBox|): Likewise.
(|$PrintCompilerMessagesIfTrue|): Likewise.
(|$printConStats|): Likewise.
* setq.lisp.pamphlet (|$opFilter|): Remove.
(|$OneCoef|): Likewise.
(|$Polvar|): Likewise.
(|$PrintCompilerMessagesIfTrue|): Likewise.
* spad.lisp.pamphlet (S-PROCESS): Don't bind |$postStack|. Set it
to nil.
* debug.lisp.pamphlet (|$oldTime|): Move from bootfuns.lisp.pamphlet.
* bootfuns.lisp.pamphlet (|$oldTime|): Move to debug.lisp.pamphlet.
* setvars.boot.pamphlet (resetWorkspaceVariables): Don't set
$operationNameList anymore.
* spad.lisp.pamphlet (S-PROCESS): Don't bind $PolyMode anymore.
Diffstat (limited to 'src/interp/spad.lisp.pamphlet')
| -rw-r--r-- | src/interp/spad.lisp.pamphlet | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/spad.lisp.pamphlet b/src/interp/spad.lisp.pamphlet index dff77a2c..40e2f568 100644 --- a/src/interp/spad.lisp.pamphlet +++ b/src/interp/spad.lisp.pamphlet @@ -351,10 +351,8 @@ (*print-pretty* t) ($MACROASSOC ()) ($NEWSPAD T) - (|$PolyMode| |$EmptyMode|) (|$compUniquelyIfTrue| nil) |$currentFunction| - (|$postStack| nil) |$topOp| (|$semanticErrorStack| ()) (|$warningStack| ()) @@ -370,6 +368,7 @@ (prog ((CURSTRM CUROUTSTREAM) |$s| |$x| |$m| u) (declare (special CURSTRM |$s| |$x| |$m| CUROUTSTREAM)) (SETQ |$exitModeStack| ()) + (SETQ |$postStack| nil) (SETQ $TRACEFLAG T) (if (NOT X) (RETURN NIL)) (setq X (if $BOOT (DEF-RENAME (|new2OldLisp| X)) |