Просмотр исходного кода

Another minor load-config cleanup.

Brit Butler лет назад: 12
Родитель
Сommit
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))