From: Vladimir Sedach <vsedach@gmail.com>
Date: Mon, 8 Jun 2009 05:30:52 +0000 (-0600)
Subject: Changed destructuring-bind to use let* instead of let in its
X-Git-Url: http://git.hcoop.net/clinton/parenscript.git/commitdiff_plain/998d9a7d1746bd3a0eaa2437722943b1d6604f0c?ds=sidebyside;hp=ead240bb2f6e1e1d7a174a5c3843618bc0baaa3d

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