From a35098ffebf51958f22e0845b5b6803c0dff1dfb Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 7 Aug 2008 14:46:47 +0200
Subject: DESTRUCTURING-BIND: Tolerate declarations.

---
 destructuring-bind.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/destructuring-bind.lisp b/destructuring-bind.lisp
index 2bac2ac..f1c5144 100644
--- a/destructuring-bind.lisp
+++ b/destructuring-bind.lisp
@@ -156,7 +156,8 @@
                        (d-b ,(cdr lambda-list) ,environment ,whole-sym (%cdr ,sym)
                          ,@body)))))))
             ((null lambda-list)
-             `(progn ,@body))
+             ;;FIXME `(locally (declare ,@decls) ,@forms)
+             `(let () ,@body))
             (t `(let ((,lambda-list ,expression))
                   ,@body)))))
 
-- 
cgit v1.2.3