diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 14:46:47 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 14:46:47 +0200 |
| commit | a35098ffebf51958f22e0845b5b6803c0dff1dfb (patch) | |
| tree | 86db79825184a22707c7b116436dfb80fea7d4e0 | |
| parent | 0f87b7abc46ec52c7d67c73963610ee6eb476485 (diff) | |
DESTRUCTURING-BIND: Tolerate declarations.
| -rw-r--r-- | destructuring-bind.lisp | 3 |
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))))) |