From a001e07a46d86b2a1045c9b70e05b71f8b803613 Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Mon, 28 Sep 2009 23:13:18 +0300
Subject: [PATCH] fix: in parse-ordinary-lambda-list normalize &aux
 specifications as promised in the docs

---
 macros.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/macros.lisp b/macros.lisp
index 309788b..bec87a6 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -193,7 +193,9 @@ Signals a PROGRAM-ERROR is the lambda-list is malformed."
                   (destructuring-bind (var &optional init) elt
                     (declare (ignore init))
                     (check-variable var "&aux parameter"))
-                  (check-variable elt "&aux parameter"))
+                  (progn
+                    (check-variable elt "&aux parameter")
+                    (setf elt (list elt nil))))
               (push elt aux))
              (t
               (simple-program-error "Invalid ordinary lambda-list:~%  ~S" lambda-list)))))))
-- 
GitLab