aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-04-29 20:21:43 +0000
committerdos-reis <gdr@axiomatics.org>2008-04-29 20:21:43 +0000
commitbce316614ee1d8dbb77aff1b6a13c354c16f63ea (patch)
tree63af5ac89937cab1c29a910f88fa33433ad625ef /src/interp
parent7e465ce1b99903491c6132466808c9fa51ae500e (diff)
downloadopen-axiom-bce316614ee1d8dbb77aff1b6a13c354c16f63ea.tar.gz
cleanup CLisp FFI
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/sys-driver.boot4
-rw-r--r--src/interp/sys-os.boot2
-rw-r--r--src/interp/util.lisp1
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)