ignore find systems

jcs090218 · jcs090218 · commit 8bf87372fe5c · 2024-11-29T16:57:21.000+08:00
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)))
 
