...
 
Commits (1)
......@@ -187,8 +187,11 @@ Please only define ~S and secondary systems with a name starting with ~S (e.g. ~
:for name = (and (keywordp key) (find key +asdf-methods+ :test 'string=))
:when name :do
(destructuring-bind (op &rest body) value
(when (or (not (symbolp op))
(not (find-if #'consp body))) ; must contain non-empty lambda list
(sysdef-error "Ill-formed inline method: ~S" value))
(loop :for arg = (pop body)
:while (atom arg)
:while (atom arg) ; guaranteed to terminate due to (find-if #'consp ...)
:collect arg :into qualifiers
:finally
(destructuring-bind (o c) arg
......