From a3f6140ef3dde8184ce2b46119e73d9dca63e73f Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 7 Aug 2008 12:08:29 +0200 Subject: Fix a slip of expressions in the &KEY handling part of DESTRUCTURING-BIND. --- destructuring-bind.lisp | 6 +++--- 1 file 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) -- cgit v1.2.3