diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-26 20:08:18 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-26 20:08:18 +0200 |
| commit | 13b5f90b8ef2d7af33688ae6ea644fcd76d16f58 (patch) | |
| tree | afe9810f4ec9c291f27ca5cbebe74338aa503648 | |
| parent | 25fd890df5305b6f6e95ca6524989bf9d41f14bc (diff) | |
Add constant LAMBDA-LIST-KEYWORDS.
| -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)) |