aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap/translator.clisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/strap/translator.clisp')
-rw-r--r--src/boot/strap/translator.clisp3
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