diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/sys-driver.boot | 4 | ||||
| -rw-r--r-- | src/interp/sys-os.boot | 2 | ||||
| -rw-r--r-- | src/interp/util.lisp | 1 |
3 files changed, 6 insertions, 1 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 94c982c4..6d8dbe9a 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -65,6 +65,10 @@ AxiomCore::%sysInit() == initMemoryConfig() if not (%hasFeature KEYWORD::GCL) then loadSystemRuntimeCore() +)if %hasFeature KEYWORD::CLISP + -- a goat for CLisp FFI, please. + sys_-osInitCLispFFI() +)endif )if %hasFeature KEYWORD::GCL SETQ(COMPILER::_*COMPILE_-VERBOSE_*,false) SETQ(COMPILER::_*SUPPRESS_-COMPILER_-WARNINGS_*,true) diff --git a/src/interp/sys-os.boot b/src/interp/sys-os.boot index 61ace016..1b60ac6d 100644 --- a/src/interp/sys-os.boot +++ b/src/interp/sys-os.boot @@ -38,6 +38,7 @@ -- supporting C runtime libopen-axiom-core. -- +module sys_-os import types import cfuns import sockio @@ -78,7 +79,6 @@ import sockSendInt for import sockGetString for sock__get__string: int -> string -)endif import doSendString for sock__send__string__len: (int, string, int) -> int diff --git a/src/interp/util.lisp b/src/interp/util.lisp index 0dde67ad..3609b591 100644 --- a/src/interp/util.lisp +++ b/src/interp/util.lisp @@ -529,6 +529,7 @@ (reroot) (mapcar #'|AxiomCore|::|importModule| load-files) (|resetWorkspaceVariables|) + (|AxiomCore|::|%sysInit|) (|initHist|) (|initNewWorld|) (compressopen) |