diff options
| -rw-r--r-- | destructuring-bind.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/destructuring-bind.lisp b/destructuring-bind.lisp index d175916..161390d 100644 --- a/destructuring-bind.lisp +++ b/destructuring-bind.lisp @@ -1,3 +1,6 @@ +(setq lambda-list-keywords + '(&allow-other-keys &aux &body &environment &key &optional &rest &whole)) + (%defmacro* d-b (lambda-list environment whole-sym expression . body) ;; (ns-log lambda-list) `(let* ,(unless whole-sym @@ -104,3 +107,8 @@ `(progn ,@body)) (t `(let ((,lambda-list ,expression)) ,@body))))) + + +(export '(destructuring-bind lambda-list-keywords + &allow-other-keys &aux &body &environment &key &optional &rest + &whole)) |