@@ -1496,9 +1498,11 @@ recursive calls to traverse.")
(or*forcing*
(andflag(not(typepc'system)))))
(errornil))
(while-collecting(internal-collect)
(dolist(kid(module-componentsc))
(handler-case
(do-traverseoperationkidcollect)
(update-flag
(do-traverseoperationkid#'internal-collect))
(missing-dependency(condition)
(when(eq(module-if-component-dep-failsc)
:fail)
@@ -1510,7 +1514,7 @@ recursive calls to traverse.")
(when(and(eq(module-if-component-dep-failsc)
:try-next)
(notat-least-one))
(errorerror))))
(errorerror)))))))
(update-flag
(or
*forcing*
@@ -1532,7 +1536,8 @@ recursive calls to traverse.")
(component-do-firstc)))))
(loop:for(required-op.deps):indo-first
:do(do-depoperationccollectrequired-opdeps)))
(funcallcollect(consoperationc))))
(do-collectcollect(vectormodule-ops))
(do-collectcollect(consoperationc)))))
(setf(visiting-componentoperationc)nil)))
(visit-componentoperationcflag)
flag))
@@ -1545,8 +1550,19 @@ recursive calls to traverse.")
"Congratulations, you're the first ever user of the :force (list of system names) feature! Please contact the asdf-devel mailing-list to collect a cookie.")