From 0b706cff1c41bdf44dfc037d7379165f349899bf Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 19 May 2010 00:25:27 +0000
Subject: 	* boot/translator.boot (translateToplevelExpression): Tidy.

---
 src/boot/strap/translator.clisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/boot/strap/translator.clisp')

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
-- 
cgit v1.2.3