From 998d9a7d1746bd3a0eaa2437722943b1d6604f0c Mon Sep 17 00:00:00 2001
From: Vladimir Sedach <vsedach@gmail.com>
Date: Sun, 7 Jun 2009 23:30:52 -0600
Subject: [PATCH 1/1] 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
---
 src/lib/ps-macro-lib.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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