Commit 9a92203a authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Tweak definition of and export REINITIALIZE-SOURCE-REGISTRY-AND-RETRY.

parent 7ab2bdd7
......@@ -21,7 +21,9 @@
#:clear-defined-system #:clear-defined-systems #:*defined-systems*
#:*immutable-systems*
;; defined in source-registry, but specially mentioned here:
#:initialize-source-registry #:sysdef-source-registry-search))
#:initialize-source-registry #:sysdef-source-registry-search
#:reinitialize-source-registry-and-retry
))
(in-package :asdf/find-system)
(with-upgradability ()
......@@ -426,6 +428,11 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded.
(reinitialize-source-registry-and-retry ()
:report (lambda (s)
(format s (compatfmt "~@<Retry finding system ~A after reinitializing the source-registry.~@:>") name))
(unset-asdf-cache-entry `(locate-system ,name))
(initialize-source-registry)))))))
;; since you're reinitializing the source registry, an arbitrary
;; amount of the ASDF cache is invalidated, not just the entry
;; for the current NAME.
(clear-asdf-cache)
;; (unset-asdf-cache-entry `(locate-system ,name))
(initialize-source-registry)
(find-system name error-p)))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment