From 65ade1a218eb177b1e5d08f9929c8b73eaa914bd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 23 Aug 2008 18:30:45 +0000
Subject: 	* lisp/core.lisp.in [CLISP]: Set global customization
 variables. 	Don't translate C-strings. 	* boot/ast.boot (nativeType)
 [SBCL]: Don't translate C-strings.

---
 src/boot/ast.boot | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/boot')

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index 3e026fbf..b0d5d769 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -1220,5 +1220,10 @@ bootSymbol s ==
 
 nativeType t ==
   null t => t
-  t' := ASSOC(coreSymbol t,$NativeTypeTable) => rest t'
+  t' := rest ASSOC(coreSymbol t,$NativeTypeTable) => 
+    -- ??? decree we have not discovered Unicode yet.
+    t = "string" and %hasFeature KEYWORD::SBCL =>
+      [t',KEYWORD::EXTERNAL_-FORMAT,KEYWORD::ASCII,
+         KEYWORD::ELEMENT_-TYPE, "BASE-CHAR"]
+    t'
   fatalError CONCAT('"unsupported native type: ", SYMBOL_-NAME t)
-- 
cgit v1.2.3