diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-29 20:21:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-29 20:21:43 +0000 |
| commit | bce316614ee1d8dbb77aff1b6a13c354c16f63ea (patch) | |
| tree | 63af5ac89937cab1c29a910f88fa33433ad625ef /src/boot/strap/ast.clisp | |
| parent | 7e465ce1b99903491c6132466808c9fa51ae500e (diff) | |
| download | open-axiom-bce316614ee1d8dbb77aff1b6a13c354c16f63ea.tar.gz | |
cleanup CLisp FFI
Diffstat (limited to 'src/boot/strap/ast.clisp')
| -rw-r--r-- | src/boot/strap/ast.clisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index c02bb4a7..08a0078f 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -2041,7 +2041,7 @@ (RETURN (COND ((NULL (CDR |x|)) (SETQ |f| (CAR |x|)) - (LIST 'SETQ |f| (LIST 'LIST (LIST 'QUOTE |f|)))) + (LIST 'DEFPARAMETER |f| (LIST 'LIST (LIST 'QUOTE |f|)))) ('T (SETQ |a| (LET ((|bfVar#121| NIL) (|bfVar#120| (CDR |x|)) @@ -2202,7 +2202,7 @@ (COND ((NULL |t|) |t|) ((SETQ |t'| (ASSOC (|coreSymbol| |t|) |$NativeTypeTable|)) - (|bootSymbol| (CDR |t'|))) + (CDR |t'|)) ('T (|fatalError| (CONCAT "unsupported native type: " (SYMBOL-NAME |t|)))))))) |