Skip to content
Snippets Groups Projects
Commit 3499b6e0 authored by James M. Lawrence's avatar James M. Lawrence Committed by Attila Lendvai
Browse files

fix test PARSE-ORDINARY-LAMBDA-LIST.1

parent b8bd1033
No related branches found
No related tags found
No related merge requests found
......@@ -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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment