Преглед на файлове

Another minor load-config cleanup.

Brit Butler преди 12 години
родител
ревизия
19a63f2cdd
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      src/config.lisp

+ 1 - 1
src/config.lisp

@@ -48,7 +48,7 @@ are in the plugins folder in coleslaw's source directory."
48 48
           ;; Multi-site config: load config section for CONFIG-KEY.
49 49
           (let* ((config-key-pathname (cl-fad:pathname-as-directory config-key))
50 50
                  (section (assoc config-key-pathname config-form
51
-                                 :key #'(lambda (str) (cl-fad:pathname-as-directory str))
51
+                                 :key #'cl-fad:pathname-as-directory
52 52
                                  :test #'equal)))
53 53
             (if section
54 54
                 (setf *config* (apply #'make-instance 'blog (cdr section))