diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 12:08:29 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 12:08:29 +0200 |
| commit | a3f6140ef3dde8184ce2b46119e73d9dca63e73f (patch) | |
| tree | dfca6ce25fafbcc40fed8172e3467ba99943e3f7 | |
| parent | 22a297ed98d667f66931a2031acbf748677bd01d (diff) | |
Fix a slip of expressions in the &KEY handling part of DESTRUCTURING-BIND.
| -rw-r--r-- | destructuring-bind.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/destructuring-bind.lisp b/destructuring-bind.lisp index f6481f9..2bac2ac 100644 --- a/destructuring-bind.lisp +++ b/destructuring-bind.lisp @@ -134,10 +134,10 @@ `((,var (if (eq ,value-sym ',missing) nil ,value-sym)))) - ((null (if (eq ,value-sym ',missing) + ((null (cdr head)) + `((,var (if (eq ,value-sym ',missing) nil - ,value-sym)) - `((,var ,value-sym))) + ,value-sym)))) ((null (cddr head)) `((,var (if (eq ,value-sym ',missing) ,(cadr head) |