From 19a63f2cdde0d1e2e5c2c3c1ab8365b5ffa8d1c3 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Tue, 1 Jan 2013 18:15:55 -0500 Subject: [PATCH] Another minor load-config cleanup. --- src/config.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/config.lisp b/src/config.lisp index 4ad6c9c..28becfb 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -48,7 +48,7 @@ are in the plugins folder in coleslaw's source directory." ;; Multi-site config: load config section for CONFIG-KEY. (let* ((config-key-pathname (cl-fad:pathname-as-directory config-key)) (section (assoc config-key-pathname config-form - :key #'(lambda (str) (cl-fad:pathname-as-directory str)) + :key #'cl-fad:pathname-as-directory :test #'equal))) (if section (setf *config* (apply #'make-instance 'blog (cdr section))