diff options
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|)))))))) |