diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-08-20 04:29:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-08-20 04:29:01 +0000 |
| commit | 4fc0d2118f3b25dfa852ac6aadee83ddf9cc330a (patch) | |
| tree | 398b988e0d2c30b146f6844c0e5184f5d89c9ea8 /src/interp | |
| parent | 9995c4454f37aa63690a691b0be2b569d9744839 (diff) | |
| download | open-axiom-4fc0d2118f3b25dfa852ac6aadee83ddf9cc330a.tar.gz | |
* interp/util.lisp (BUILD-INTERPSYS): loadDelayedFFI early.
* interp/sys-driver.boot (%sysInit): Do not call
sys-osInitCLispFFI (no longer necessary.)
* boot/translator.boot (genModuleFinalization): Generate forms to
be evaluated at load and execution time, instead of a function call.
* interp/spad.lisp (process): Remove.
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|) |