diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-08-26 12:41:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-08-26 12:41:20 +0000 |
| commit | 45f656f12b8a880be7ed618a5fcb86fb639f1285 (patch) | |
| tree | 22459649d2b164f884e4236deaedace83a6d62b3 /src/interp/spad.lisp.pamphlet | |
| parent | 5aea0ad31f2b0a610d2c5887cf44a5bd47a8582d (diff) | |
| download | open-axiom-45f656f12b8a880be7ed618a5fcb86fb639f1285.tar.gz | |
* bootfuns.lisp.pamphlet (|$constructorsNotInDatabase|): Remove.
(|$DomainFrame|): Remove.
(|$eltIfNil|): Remove.
(|$compileMapFlag|): Remove.
(|$evalDomain|): Don't set here.
(|$false|): Move to sys-constants.boot.
(|$domainTraceNameAssoc|): Move to sys-globals.boot.
(|$evalDomain|): Move to sys-globals.boot.
(|$exitModeStack|): Move to sys-globals.boot
* pspad1.boot.pamphlet (lisp2Boot): Don't declare $eltIfNil anymore.
* setvars.boot.pamphlet (resetWorkspaceVariables): Don't set
anymore.
* setq.lisp.pamphlet (|$domainTraceNameAssoc|): Don't set here.
* spad.lisp.pamphlet (S-PROCESS): Don't bind |$DomainFrame| anymore.
(S-PROCESS): Set $exitModeStack to nil.
(|$false|): Don't set here.
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 849e397f..e37bb12e 100644 --- a/src/interp/spad.lisp.pamphlet +++ b/src/interp/spad.lisp.pamphlet @@ -359,14 +359,12 @@ (|$semanticErrorStack| ()) (|$warningStack| ()) (|$exitMode| |$EmptyMode|) - (|$exitModeStack| ()) (|$returnMode| |$EmptyMode|) (|$leaveMode| |$EmptyMode|) (|$leaveLevelStack| ()) $TOP_LEVEL |$insideFunctorIfTrue| |$insideExpressionIfTrue| |$insideCoerceInteractiveHardIfTrue| |$insideWhereIfTrue| |$insideCategoryIfTrue| |$insideCapsuleFunctionIfTrue| |$form| - (|$DomainFrame| '((NIL))) (|$e| |$EmptyEnvironment|) (|$genFVar| 0) (|$genSDVar| 0) @@ -374,6 +372,7 @@ (|$previousTime| (TEMPUS-FUGIT))) (prog ((CURSTRM CUROUTSTREAM) |$s| |$x| |$m| u) (declare (special CURSTRM |$s| |$x| |$m| CUROUTSTREAM)) + (SETQ |$exitModeStack| ()) (SETQ $TRACEFLAG T) (if (NOT X) (RETURN NIL)) (setq X (if $BOOT (DEF-RENAME (|new2OldLisp| X)) |