Fix let

diff --git a/lispstrack.lisp b/lispstrack.lisp
index b4adc1b..3fff9a3 100644 (file)
--- 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 (file)
--- 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.