From 3499b6e0a94e3c616af1cecce0613ce0122e01af Mon Sep 17 00:00:00 2001
From: "James M. Lawrence" <llmjjmll@gmail.com>
Date: Tue, 26 Feb 2013 20:54:57 -0500
Subject: [PATCH] fix test PARSE-ORDINARY-LAMBDA-LIST.1

Signed-off-by: Attila Lendvai <attila.lendvai@gmail.com>
---
 tests.lisp | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/tests.lisp b/tests.lisp
index 9eb2454..e35041b 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -1900,11 +1900,12 @@
   t)
 
 (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))
-    (and (equal '(a b c) req)
-         (equal '((d nil nil)) opt)
-         (equal '() keys)
-         (not allowp)
-         (not aux)
-         (eq t keyp))))
+    (multiple-value-bind (req opt rest keys allowp aux keyp)
+        (parse-ordinary-lambda-list '(a b c &optional d &key))
+      (and (equal '(a b c) req)
+           (equal '((d nil nil)) opt)
+           (equal '() keys)
+           (not allowp)
+           (not aux)
+           (eq t keyp)))
+  t)
-- 
GitLab