From 4fc0d2118f3b25dfa852ac6aadee83ddf9cc330a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 20 Aug 2012 04:29:01 +0000
Subject: 	* 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.

---
 src/interp/spad.lisp       | 7 -------
 src/interp/sys-driver.boot | 2 --
 src/interp/util.lisp       | 2 +-
 3 files changed, 1 insertion(+), 10 deletions(-)

(limited to 'src/interp')

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|)
-- 
cgit v1.2.3