Better handle system-not-found in system-depends-on-p

digikar99 · Mar 28, 2024 · f1bacf7 · f1bacf7
1 parent 0a0e6c9
commit f1bacf7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/asdf-system-connections.lisp b/src/asdf-system-connections.lisp
@@ -76,7 +76,9 @@ or list acceptable to the reader macros #+ and #-."
 
 (defun system-depends-on-p (system depends-on)
   "Returns non-NIL if DEPENDS-ON is a dependency of SYSTEM."
-  (let* ((system (find-system-from-dep-spec system))
+  (let* ((system (handler-case (find-system-from-dep-spec system)
+                   (system-not-found ()
+                     (return-from system-depends-on-p nil))))
          (depends-on (find-system-from-dep-spec depends-on))
          (depends-on-name (when depends-on
                             (component-name depends-on))))