diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-07 01:09:19 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-07 01:09:19 +0000 |
commit | 57cc9e7ab4606e72a6a12fd73fc4cc3cf0e10a83 (patch) | |
tree | d5b9110e0ec3749173ab6b6ec07f42c160f5ccdb /src/boot/strap/translator.clisp | |
parent | e869c4e050f29dffb51d26f53489422020f49e4f (diff) | |
download | open-axiom-57cc9e7ab4606e72a6a12fd73fc4cc3cf0e10a83.tar.gz |
* boot/ast.boot: Miscellaneous cleanup.
* boot/includer.boot: Likewise.
* boot/parser.boot: Likewise.
* boot/pile.boot: Likewise.
* boot/scanner.boot: Likewise.
* boot/tokens.boot: Likewise.
* boot/translator.boot: Likewise.
Diffstat (limited to 'src/boot/strap/translator.clisp')
-rw-r--r-- | src/boot/strap/translator.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 59251588..9a23effe 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -532,7 +532,7 @@ (COND ((|bfTupleP| |argTypes|) (SETQ |argTypes| (CDR |argTypes|)))) (COND - ((AND (NOT (NULL |argTypes|)) (SYMBOLP |argTypes|)) + ((AND |argTypes| (SYMBOLP |argTypes|)) (SETQ |argTypes| (LIST |argTypes|)))) (LIST 'DECLAIM (LIST 'FTYPE (LIST 'FUNCTION |argTypes| |valType|) |n|))) |