From: David Vazquez <davazp@gmail.com>
Date: Sun, 23 Dec 2012 19:44:50 +0000 (+0000)
Subject: Fix let
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=57e6f073a32740df47474826497e90ed247b64b4;p=jscl.git

Fix let
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index b4adc1b..3fff9a3 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -425,8 +425,8 @@
 
 (define-transformation let (bindings &rest body)
   (let ((bindings (mapcar #'ensure-list bindings)))
-    `((lambda ,(mapcar 'car bindings) ,@body)
-      ,@(mapcar 'cadr bindings))))
+    `((lambda ,(mapcar #'car bindings) ,@body)
+      ,@(mapcar #'cadr bindings))))
 
 ;;; A little backquote implementation without optimizations of any
 ;;; kind for lispstrack.
diff --git a/test.lisp b/test.lisp
index dc1b52e..99e75d0 100644
--- a/test.lisp
+++ b/test.lisp
@@ -756,8 +756,8 @@
 
 (define-transformation let (bindings &rest body)
   (let ((bindings (mapcar #'ensure-list bindings)))
-    `((lambda ,(mapcar 'car bindings) ,@body)
-      ,@(mapcar 'cadr bindings))))
+    `((lambda ,(mapcar #'car bindings) ,@body)
+      ,@(mapcar #'cadr bindings))))
 
 ;;; A little backquote implementation without optimizations of any
 ;;; kind for lispstrack.