summary refs log tree commit diff
path: root/pkgs/development/lisp-modules
diff options
context:
space:
mode:
authorMichael Raskin <7c6f434c@mail.ru>2019-09-30 18:26:08 +0200
committerMichael Raskin <7c6f434c@mail.ru>2019-09-30 18:26:08 +0200
commit98ddcfe794b28a1fa89d544f9efa3783b7835a0f (patch)
treecf457de2ed42c970252d2570b550e5ab5fa9b53d /pkgs/development/lisp-modules
parenta25dd40eb59bf2b6a77df72ea210de4fd99bdfa1 (diff)
downloadnixpkgs-98ddcfe794b28a1fa89d544f9efa3783b7835a0f.tar
nixpkgs-98ddcfe794b28a1fa89d544f9efa3783b7835a0f.tar.gz
nixpkgs-98ddcfe794b28a1fa89d544f9efa3783b7835a0f.tar.bz2
nixpkgs-98ddcfe794b28a1fa89d544f9efa3783b7835a0f.tar.lz
nixpkgs-98ddcfe794b28a1fa89d544f9efa3783b7835a0f.tar.xz
nixpkgs-98ddcfe794b28a1fa89d544f9efa3783b7835a0f.tar.zst
nixpkgs-98ddcfe794b28a1fa89d544f9efa3783b7835a0f.zip
A band-aid workaround for 68384. The situation should not be possible, not clear whether there is a missed detail about ASDF or SBCL
Diffstat (limited to 'pkgs/development/lisp-modules')
-rw-r--r--pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp4
1 files changed, 3 insertions, 1 deletions
diff --git a/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp b/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp
index 6a4c2b4ad1a..0f7941a0115 100644
--- a/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp
+++ b/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp
@@ -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))