From c0f80aca887462749a7cdc4fcacc579ee59aa850 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 7 Sep 2008 20:13:42 +0000
Subject: 	* boot/parser.boot (bpImport): Invert syntax for importing
 foreign 	functions. 	* boot/strap/parser.clisp: Update. 	*
 interp/sys-os.boot: Change to new syntax throughout.

---
 src/boot/strap/ast.clisp | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

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

diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 8f1b5b77..f5536c0c 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -2206,9 +2206,14 @@
     (RETURN
       (COND
         ((NULL |t|) |t|)
-        ((SETQ |t'| (ASSOC (|coreSymbol| |t|) |$NativeTypeTable|))
-         (CDR |t'|))
-        ('T
+        ((SETQ |t'|
+               (CDR (ASSOC (|coreSymbol| |t|) |$NativeTypeTable|)))
+         (COND
+           ((AND (EQ |t| '|string|) (|%hasFeature| :SBCL))
+            (LIST |t'| :EXTERNAL-FORMAT :ASCII :ELEMENT-TYPE
+                  'BASE-CHAR))
+           (#0='T |t'|)))
+        (#0#
          (|fatalError|
              (CONCAT "unsupported native type: " (SYMBOL-NAME |t|))))))))
 
-- 
cgit v1.2.3