@@ -476,9 +489,11 @@ or of opaque libraries shipped along the source code."))
(version(component-versions))
(dependencies
(if(operation-monolithic-po)
;; We want only dependencies, and we use basic-load-op rather than load-op so that
;; this will keep working on systems when *load-system-operation* is load-bundle-op
(remove-if-not'builtin-system-p
(required-componentss:component-type'system
:keep-operation'load-op))
:keep-operation'basic-load-op))
(while-collecting(x);; resolve the sideway-dependencies of s
(map-direct-dependencies
t'load-ops
@@ -488,7 +503,8 @@ or of opaque libraries shipped along the source code."))
(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."
"~/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."