A band-aid workaround for 68384. The situation should not be possible, not clear whether there is a missed detail about ASDF or SBCL
This commit is contained in:
parent
a25dd40eb5
commit
98ddcfe794
@ -265,7 +265,9 @@ parasitic systems will be tracked."
|
|||||||
(cond
|
(cond
|
||||||
(source-file
|
(source-file
|
||||||
(loop :for system-name :being :the :hash-keys :of asdf/find-system::*registered-systems* :do
|
(loop :for system-name :being :the :hash-keys :of asdf/find-system::*registered-systems* :do
|
||||||
(when (and (parasitic-relationship-p system system-name)
|
; for an unclear reason, a literal 0 which is not a key in the hash table gets observed
|
||||||
|
(when (and (gethash system-name asdf/find-system::*registered-systems*)
|
||||||
|
(parasitic-relationship-p system system-name)
|
||||||
(not (blacklisted-parasite-p system-name)))
|
(not (blacklisted-parasite-p system-name)))
|
||||||
(found-new-parasite system-name)
|
(found-new-parasite system-name)
|
||||||
(let ((*track-dependencies* t))
|
(let ((*track-dependencies* t))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user