From 794f08a7be8f667f03902eb972d66c6a4d3109e8 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Tue, 1 Jan 2013 16:45:12 -0500 Subject: [PATCH] Minor cleanups to load-config. --- src/config.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/config.lisp b/src/config.lisp index d2f6cab..4ad6c9c 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -51,9 +51,8 @@ are in the plugins folder in coleslaw's source directory." :key #'(lambda (str) (cl-fad:pathname-as-directory str)) :test #'equal))) (if section - (progn - (setf *config* (apply #'make-instance 'blog (cdr section))) - (setf (slot-value *config* 'repo) config-key)) - (error 'unknown-config-section-error + (setf *config* (apply #'make-instance 'blog (cdr section)) + (repo *config*) config-key) + (error 'unknown-config-section-error :text (format nil "In ~A: No such key: '~A'." in config-key))))) (load-plugins (plugins *config*)))))