Loading parse-defsystem.lisp +4 −1 Original line number Diff line number Diff line Loading @@ -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 Loading Loading
parse-defsystem.lisp +4 −1 Original line number Diff line number Diff line Loading @@ -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 Loading