Commit 3b301a00 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix bug with missing clpm.conf file

parent 999de388
......@@ -25,11 +25,12 @@
(defmethod initialize-instance :after ((config-source config-file-source) &rest initargs)
(declare (ignore initargs))
(if (probe-file (config-file-source-pathname config-source))
(with-open-file (s (config-file-source-pathname config-source))
(setf (config-file-source-root-ht config-source)
(load-config-from-stream s)))
(setf (config-file-source-root-ht config-source) (make-hash-table :test 'equal))))
(let ((pathname (config-file-source-pathname config-source)))
(if (and pathname (probe-file pathname))
(with-open-file (s pathname)
(setf (config-file-source-root-ht config-source)
(load-config-from-stream s)))
(setf (config-file-source-root-ht config-source) (make-hash-table :test 'equal)))))
(defgeneric parse-config-value (value))
Markdown is supported
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