From e88c183394d4403a63671eeb493a8466ac18b4ad Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila@lendvai.name>
Date: Thu, 27 Oct 2016 17:26:39 +0200
Subject: [PATCH] Record failing test for parse-ordinary-lambda-list as per
 issue #2.

---
 tests.lisp | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/tests.lisp b/tests.lisp
index a2f969a..a00a700 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -2010,10 +2010,19 @@
 
 (deftest parse-ordinary-lambda-list.1
     (multiple-value-bind (req opt rest keys allowp aux keyp)
-        (parse-ordinary-lambda-list '(a b c &optional d &key))
+        (parse-ordinary-lambda-list '(a b c
+                                      &optional o1 (o2 42) (o3 42 o3-supplied?)
+                                      &key (k1) ((:key k2)) (k3 42 k3-supplied?))
+                                    :normalize t)
       (and (equal '(a b c) req)
-           (equal '((d nil nil)) opt)
-           (equal '() keys)
+           (equal '((o1 nil nil)
+                    (o2 42 nil)
+                    (o3 42 o3-supplied?))
+                  opt)
+           (equal '(((:k1 k1) nil nil)
+                    ((:key k2) nil nil)
+                    ((:k3 k3) 42 k3-supplied?))
+                  keys)
            (not allowp)
            (not aux)
            (eq t keyp)))