diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-19 00:25:27 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-19 00:25:27 +0000 |
| commit | 0b706cff1c41bdf44dfc037d7379165f349899bf (patch) | |
| tree | 748e9cffdce02f8fdb8ac70808df529dd4385fe7 /src/boot/strap/translator.clisp | |
| parent | 2103e6d257f78fae7c554ff8e5d2a289059fbcee (diff) | |
| download | open-axiom-0b706cff1c41bdf44dfc037d7379165f349899bf.tar.gz | |
* boot/translator.boot (translateToplevelExpression): Tidy.
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 06af9992..0b7eb64b 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -551,8 +551,7 @@ (RETURN (PROGN (SETQ |expr'| - (CDR (CDR (|shoeCompTran| - (LIST 'LAMBDA (LIST '|x|) |expr|))))) + (CDR (CDR (|shoeCompTran| (LIST 'LAMBDA NIL |expr|))))) (LET ((|bfVar#9| |expr'|) (|t| NIL)) (LOOP (COND |