diff options
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)) |