From 13b5f90b8ef2d7af33688ae6ea644fcd76d16f58 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 26 Jul 2008 20:08:18 +0200
Subject: Add constant LAMBDA-LIST-KEYWORDS.

---
 destructuring-bind.lisp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'destructuring-bind.lisp')

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))
-- 
cgit v1.2.3