Updated let1-dynamic to clean up its temporary stack variable after use.

diff --git a/src/special-forms.lisp b/src/special-forms.lisp
index 33f6d94..2736c85 100644 (file)
--- a/src/special-forms.lisp
+++ b/src/special-forms.lisp
@@ -622,7 +622,9 @@ lambda-list::=
       (try (progn (setf ,temp-stack-var ,var)
                   (setf ,var ,value)
                   ,@body)
-       (:finally (setf ,var ,temp-stack-var))))))
+       (:finally
+        (setf ,var ,temp-stack-var)
+        (delete ,temp-stack-var))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; iteration