Skip to content
Snippets Groups Projects
Commit f34477a8 authored by Pascal Costanza's avatar Pascal Costanza
Browse files

Replaced a few loops with calls to the new Closer to MOP utility function required-args.

darcs-hash:5a23dbc8fff86551cf265dd5ac656c17f205fa0d
parent 73cff6ad
No related branches found
No related tags found
No related merge requests found
......@@ -53,9 +53,7 @@
,@(let ((argument-precedence-order (assoc :argument-precedence-order options)))
(if argument-precedence-order
(cdr argument-precedence-order)
(loop for arg in args
until (member arg lambda-list-keywords)
collect arg)))
(required-args args)))
,layer-arg)
,@(loop for option in (remove :argument-precedence-order options :key #'car)
if (eq (car option) :method)
......@@ -85,10 +83,7 @@
(name
&rest initargs
&key (lambda-list () lambda-list-p)
(argument-precedence-order
(loop for arg in lambda-list
until (member arg lambda-list-keywords)
collect arg))
(argument-precedence-order (required-args lambda-list))
&allow-other-keys)
(declare (dynamic-extent initargs))
(unless lambda-list-p
......@@ -123,9 +118,7 @@
(in-layer (find-layer 't))
(qualifiers ())
(lambda-list (cadr lambda-expression))
(specializers (loop for arg in lambda-list
until (member arg lambda-list-keywords)
collect (find-class 't))))
(specializers (required-args lambda-list (constantly (find-class 't)))))
(let ((layer-arg (gensym "LAYER-ARG-")))
(destructuring-bind
(lambda (&rest args) &body body)
......
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