From 57e6f073a32740df47474826497e90ed247b64b4 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sun, 23 Dec 2012 19:44:50 +0000 Subject: [PATCH] Fix let --- lispstrack.lisp | 4 ++-- test.lisp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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. -- 1.7.10.4