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

Fix bug with missing clpm.conf file

parent 999de388
Loading
Loading
Loading
Loading
+6 −5
Original line number Diff line number Diff line
@@ -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))
  (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))))
        (setf (config-file-source-root-ht config-source) (make-hash-table :test 'equal)))))

(defgeneric parse-config-value (value))