(while-collecting(x);; resolve the sideway-dependencies of s
(map-direct-dependencies
'load-ops
#'(lambda(oc)
(when(and(typepo'load-op)(typepc'system))
(xc)))))))
(depends-on(mapcar'coerce-namedependencies)))
(when(pathname-equalasd(system-source-files))
(cerror"overwrite the asd file"
"~/asdf-action:format-action/ is going to overwrite the system definition file ~S which is probably not what you want; you probably need to tweak your output translations."