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:
Michael Raskin 2019-09-30 18:26:08 +02:00
parent a25dd40eb5
commit 98ddcfe794

View File

@ -265,7 +265,9 @@ parasitic systems will be tracked."
(cond
(source-file
(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)))
(found-new-parasite system-name)
(let ((*track-dependencies* t))