Loading clpm/config/file-source.lisp +6 −5 Original line number Diff line number Diff line Loading @@ -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)) Loading Loading
clpm/config/file-source.lisp +6 −5 Original line number Diff line number Diff line Loading @@ -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)) Loading