diff options
Diffstat (limited to 'src/boot/ast.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) |