Browse Source

Force staging-dir to be a directory-pathname in compile-blog.

Brit Butler 10 years ago
parent
commit
a6a5b0b86b
1 changed files with 1 additions and 1 deletions
  1. 1 1
      src/coleslaw.lisp

+ 1 - 1
src/coleslaw.lisp

24
 
24
 
25
 (defun compile-blog (staging)
25
 (defun compile-blog (staging)
26
   "Compile the blog to a STAGING directory as specified in .coleslawrc."
26
   "Compile the blog to a STAGING directory as specified in .coleslawrc."
27
-  (ensure-directories-exist staging)
27
+  (ensure-directories-exist (ensure-directory-pathname staging))
28
   (with-current-directory staging
28
   (with-current-directory staging
29
     (dolist (dir (list (app-path "themes/~a/css" (theme *config*))
29
     (dolist (dir (list (app-path "themes/~a/css" (theme *config*))
30
                        (app-path "themes/~a/img" (theme *config*))
30
                        (app-path "themes/~a/img" (theme *config*))