diff --git a/tests.lisp b/tests.lisp index 9eb24541031aa7e363b2723f7fca86e13f01358a..e35041b3b75b38e158514aa63091a8cce7d031fb 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)