Commit 3499b6e0 authored by James M. Lawrence's avatar James M. Lawrence Committed by Attila Lendvai

fix test PARSE-ORDINARY-LAMBDA-LIST.1

Signed-off-by: Attila Lendvai's avatarAttila Lendvai <attila.lendvai@gmail.com>
parent b8bd1033
......@@ -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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment