Commit 8bccd1d1 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix starting CLPM when there are no sources

parent b1372bda
...@@ -46,6 +46,6 @@ ...@@ -46,6 +46,6 @@
(defun load-sources () (defun load-sources ()
(let ((pn (clpm-config-pathname '("sources.conf")))) (let ((pn (clpm-config-pathname '("sources.conf"))))
(when (probe-file pn) (when pn
(uiop:with-safe-io-syntax () (uiop:with-safe-io-syntax ()
(mapcar #'load-source-from-form (uiop:read-file-forms pn)))))) (mapcar #'load-source-from-form (uiop:read-file-forms pn))))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment