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

fix: in parse-ordinary-lambda-list normalize &aux specifications as promised in the docs

parent 979f7916
No related branches found
No related tags found
No related merge requests found
...@@ -193,7 +193,9 @@ Signals a PROGRAM-ERROR is the lambda-list is malformed." ...@@ -193,7 +193,9 @@ Signals a PROGRAM-ERROR is the lambda-list is malformed."
(destructuring-bind (var &optional init) elt (destructuring-bind (var &optional init) elt
(declare (ignore init)) (declare (ignore init))
(check-variable var "&aux parameter")) (check-variable var "&aux parameter"))
(check-variable elt "&aux parameter")) (progn
(check-variable elt "&aux parameter")
(setf elt (list elt nil))))
(push elt aux)) (push elt aux))
(t (t
(simple-program-error "Invalid ordinary lambda-list:~% ~S" lambda-list))))))) (simple-program-error "Invalid ordinary lambda-list:~% ~S" lambda-list)))))))
......
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