marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor cleanups to load-config.

Browse source
This commit is contained in:
Brit Butler 2013-01-01 16:45:12 -05:00
parent ef77026c0c
commit 794f08a7be
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/config.lisp
View file

@ -51,9 +51,8 @@ are in the plugins folder in coleslaw's source directory."
:key #'(lambda (str) (cl-fad:pathname-as-directory str)) :key #'(lambda (str) (cl-fad:pathname-as-directory str))
:test #'equal))) :test #'equal)))
(if section (if section
(progn (setf *config* (apply #'make-instance 'blog (cdr section))
(setf *config* (apply #'make-instance 'blog (cdr section))) (repo *config*) config-key)
(setf (slot-value *config* 'repo) config-key))
(error 'unknown-config-section-error (error 'unknown-config-section-error
:text (format nil "In ~A: No such key: '~A'." in config-key))))) :text (format nil "In ~A: No such key: '~A'." in config-key)))))
(load-plugins (plugins *config*))))) (load-plugins (plugins *config*)))))