From ac40a4649bdfac1381e08a42d5bd0508931a930f Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 8 Dec 2012 11:49:06 +0100 Subject: [PATCH] The temporary variables in cmplet.lsp should not have any package (i.e. gensym instead of gentemp) --- src/cmp/cmplet.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmplet.lsp b/src/cmp/cmplet.lsp index 3eff51941..cf47e7e28 100644 --- a/src/cmp/cmplet.lsp +++ b/src/cmp/cmplet.lsp @@ -28,7 +28,7 @@ for b in bindings if (atom b) collect b into real-bindings - else collect (setf temp (gentemp "LET")) into temp-names and + else collect (setf temp (gensym "LET")) into temp-names and collect (cons temp (cdr b)) into temp-bindings and collect (list (car b) temp) into real-bindings finally