From bce316614ee1d8dbb77aff1b6a13c354c16f63ea Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 29 Apr 2008 20:21:43 +0000
Subject: cleanup CLisp FFI

---
 src/boot/strap/ast.clisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/boot/strap/ast.clisp')

diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index c02bb4a7..08a0078f 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -2041,7 +2041,7 @@
     (RETURN
       (COND
         ((NULL (CDR |x|)) (SETQ |f| (CAR |x|))
-         (LIST 'SETQ |f| (LIST 'LIST (LIST 'QUOTE |f|))))
+         (LIST 'DEFPARAMETER |f| (LIST 'LIST (LIST 'QUOTE |f|))))
         ('T
          (SETQ |a|
                (LET ((|bfVar#121| NIL) (|bfVar#120| (CDR |x|))
@@ -2202,7 +2202,7 @@
       (COND
         ((NULL |t|) |t|)
         ((SETQ |t'| (ASSOC (|coreSymbol| |t|) |$NativeTypeTable|))
-         (|bootSymbol| (CDR |t'|)))
+         (CDR |t'|))
         ('T
          (|fatalError|
              (CONCAT "unsupported native type: " (SYMBOL-NAME |t|))))))))
-- 
cgit v1.2.3