diff options
| -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) |