From 2c2af43c768be552ff54e486eea35252805280c7 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Tue, 21 Aug 2012 19:53:31 -0400 Subject: [PATCH] Well, that was easy. --- src/coleslaw.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index ccf01c8..1b6c004 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -71,6 +71,7 @@ on files that match the given extension." (:documentation "Deploy DIR, updating the .prev and .curr symlinks.") (:method (dir) (let ((new-build (app-path "generated/~a" (get-universal-time)))) + (ensure-directories-exist new-build) (run-program "mv" (mapcar #'namestring (list dir new-build))) (when (probe-file (app-path ".prev")) (delete-directory-and-files (read-symlink (app-path ".prev"))))