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