diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/spad.lisp | 7 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 2 | ||||
| -rw-r--r-- | src/interp/util.lisp | 2 |
3 files changed, 1 insertions, 10 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index d8dd240c..af99796c 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -149,13 +149,6 @@ (MAKEPROP 'END_UNIT 'KEY T) -(defun |process| (x) - (COND ((NOT (EQ TOK 'END_UNIT)) - (SETQ DEBUGMODE 'NO) - (SPAD_SYNTAX_ERROR) - (if |$InteractiveMode| (|spadThrow|)) - (|translateSpad| x)))) - (defmacro try (X) `(LET ((|$autoLine|)) (declare (special |$autoLine|)) diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index f38fb0fc..d8f3ed37 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -63,8 +63,6 @@ symbolFunction('%sysInit) := () +-> SETQ(_*LOAD_-VERBOSE_*,false) initMemoryConfig() )if %hasFeature KEYWORD::CLISP - -- a goat for CLisp FFI, please. - sys_-osInitCLispFFI() -- Tell CLISP to stop being anal retentive, please. SETF(CUSTOM::_*WARN_-ON_-FLOATING_-POINT_-CONTAGION_*,false) )endif diff --git a/src/interp/util.lisp b/src/interp/util.lisp index fd9349d9..f4ef0187 100644 --- a/src/interp/util.lisp +++ b/src/interp/util.lisp @@ -247,9 +247,9 @@ (defun build-interpsys () (reroot) + (|loadDelayedFFI|) (|resetWorkspaceVariables|) (|AxiomCore|::|%sysInit|) - (|loadDelayedFFI|) (|buildHtMacroTable|) (|initHist|) (|initNewWorld|) |