From 3499b6e0a94e3c616af1cecce0613ce0122e01af Mon Sep 17 00:00:00 2001 From: "James M. Lawrence" Date: Tue, 26 Feb 2013 20:54:57 -0500 Subject: [PATCH] fix test PARSE-ORDINARY-LAMBDA-LIST.1 Signed-off-by: Attila Lendvai --- 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) -- 2.11.4.GIT