Changed destructuring-bind to use let* instead of let in its

macroexpansion.

Bug report due to Scott
Bell. http://common-lisp.net/pipermail/parenscript-devel/2009-June/000532.html

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index cb413cf..5c65ad6 100644 (file)
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -146,4 +146,4 @@
                   (mapcan (lambda (var)
                             (incf n)
                             (when var `((,var (aref ,arr ,n))))) vars))))
-    `(let ,bindings ,@body)))
+    `(let* ,bindings ,@body)))