diff options
| -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))))) |