summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-26 20:08:18 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-26 20:08:18 +0200
commit13b5f90b8ef2d7af33688ae6ea644fcd76d16f58 (patch)
treeafe9810f4ec9c291f27ca5cbebe74338aa503648
parent25fd890df5305b6f6e95ca6524989bf9d41f14bc (diff)
Add constant LAMBDA-LIST-KEYWORDS.
-rw-r--r--destructuring-bind.lisp8
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))