Fix to work clackup without -S option (ref 1177ab2).

fukamachi · Sep 24, 2018 · e3e0328 · e3e0328
1 parent 48e6909
commit e3e0328
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/roswell/clackup.ros b/roswell/clackup.ros
@@ -140,7 +140,8 @@ Options:
       (%terminate -1 "File doesn't exist: ~A" app-file))
 
     ;; Add ASDF source-registry
-    (asdf:compute-source-registry (truename (getf opt-args :source-registry)))
+    (when (getf opt-args :source-registry)
+      (asdf:compute-source-registry (truename (getf opt-args :source-registry))))
 
     ;; Load systems
     (mapc #'ql:quickload (getf opt-args :systems))