Skip to content
Snippets Groups Projects
Commit 7a42065f authored by Attila Lendvai's avatar Attila Lendvai
Browse files

Fix issue #2: parse-ordinary-lambda-list &key and &optional normalization.

Based on Kyle Littler's patch.
parent e88c1833
No related branches found
No related tags found
No related merge requests found
......@@ -184,8 +184,10 @@ Signals a PROGRAM-ERROR is the lambda-list is malformed."
(check-variable name "optional parameter")
(cond ((cdr tail)
(check-spec tail "optional-supplied-p parameter"))
((and normalize-optional tail)
(setf elt (append elt '(nil))))
(normalize-optional
(setf elt (append elt '(nil)))))))
(setf elt (append elt '(nil nil)))))))
(t
(check-variable elt "optional parameter")
(when normalize-optional
......@@ -209,10 +211,12 @@ Signals a PROGRAM-ERROR is the lambda-list is malformed."
(check-variable var-or-kv "keyword parameter")
(when normalize-keyword
(setf var-or-kv (list (make-keyword var-or-kv) var-or-kv)))))
(if (cdr tail)
(check-spec tail "keyword-supplied-p parameter")
(when normalize-keyword
(setf tail (append tail '(nil)))))
(cond ((cdr tail)
(check-spec tail "keyword-supplied-p parameter"))
((and normalize-keyword tail)
(setf tail (append tail '(nil))))
(normalize-keyword
(setf tail '(nil nil))))
(setf elt (cons var-or-kv tail))))
(t
(check-variable elt "keyword parameter")
......
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