Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /src/cmp/cmplet.lsp [900282] .. [ac40a4] Maximize Restore

  Switch to side-by-side view

--- 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