Another minor load-config cleanup.

2013-01-01 18:15:55 -05:00 · 2013-01-01 18:15:55 -05:00 · 19a63f2cdd
commit 19a63f2cdd
parent 794f08a7be
1 changed files with 1 additions and 1 deletions
--- 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))