diff options
author | dos-reis <gdr@axiomatics.org> | 2008-08-23 18:30:45 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-08-23 18:30:45 +0000 |
commit | 65ade1a218eb177b1e5d08f9929c8b73eaa914bd (patch) | |
tree | ac3b08e70393b469c9963792a022c0f3ba81fdf5 /src/boot | |
parent | 5ec0094982b5c45d9d539e7bf9a9136aa40a9865 (diff) | |
download | open-axiom-65ade1a218eb177b1e5d08f9929c8b73eaa914bd.tar.gz |
* lisp/core.lisp.in [CLISP]: Set global customization variables.
Don't translate C-strings.
* boot/ast.boot (nativeType) [SBCL]: Don't translate C-strings.
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/ast.boot | 7 |
1 files changed, 6 insertions, 1 deletions
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) |