diff options
author | dos-reis <gdr@axiomatics.org> | 2008-09-07 20:13:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-09-07 20:13:42 +0000 |
commit | c0f80aca887462749a7cdc4fcacc579ee59aa850 (patch) | |
tree | f0e7543a797c0072415c80f36327f3b52309ec10 /src/boot/strap/ast.clisp | |
parent | 18b7b4b5d3511211092796bd8d593d5c9debec02 (diff) | |
download | open-axiom-c0f80aca887462749a7cdc4fcacc579ee59aa850.tar.gz |
* boot/parser.boot (bpImport): Invert syntax for importing foreign
functions.
* boot/strap/parser.clisp: Update.
* interp/sys-os.boot: Change to new syntax throughout.
Diffstat (limited to 'src/boot/strap/ast.clisp')
-rw-r--r-- | src/boot/strap/ast.clisp | 11 |
1 files changed, 8 insertions, 3 deletions
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|)))))))) |