diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-29 20:21:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-29 20:21:43 +0000 |
| commit | bce316614ee1d8dbb77aff1b6a13c354c16f63ea (patch) | |
| tree | 63af5ac89937cab1c29a910f88fa33433ad625ef /src/interp | |
| parent | 7e465ce1b99903491c6132466808c9fa51ae500e (diff) | |
| download | open-axiom-bce316614ee1d8dbb77aff1b6a13c354c16f63ea.tar.gz | |
cleanup CLisp FFI
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) |