ignore find systems

cl-qob · Nov 29, 2024 · 8bf8737 · 8bf8737
1 parent d63f47d
commit 8bf8737
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/_prepare.lisp b/scripts/_prepare.lisp
@@ -8,7 +8,7 @@
 
 (defun this-load-system (name)
   "Load the system by NAME."
-  (if (asdf:find-system name)
+  (if (ignore-errors (asdf:find-system name))
       (asdf:load-system name)
       (ql:quickload name)))