summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-07 14:46:47 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-07 14:46:47 +0200
commita35098ffebf51958f22e0845b5b6803c0dff1dfb (patch)
tree86db79825184a22707c7b116436dfb80fea7d4e0
parent0f87b7abc46ec52c7d67c73963610ee6eb476485 (diff)
DESTRUCTURING-BIND: Tolerate declarations.
-rw-r--r--destructuring-bind.lisp3
1 files changed, 2 insertions, 1 deletions
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)))))