Minor deploy fix.

src/coleslaw.lisp

@@ -68,8 +68,8 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
            (curr (rel-path dest ".curr")))
       (ensure-directories-exist new-build)
       (run-program "mv ~a ~a" staging new-build)
-      (when (probe-file prev)
-        (delete-directory-and-files (truename prev) :if-does-not-exist :ignore))
+      (when (and (probe-file prev) (truename prev))
+        (run-program "rm -r ~a" (truename prev)))
       (when (probe-file curr)
         (update-symlink prev (truename curr)))
       (update-symlink curr new-build))))

src/packages.lisp

@@ -6,7 +6,6 @@
                             #:mappend
                             #:compose)
   (:import-from :closure-template #:compile-template)
-  (:import-from :cl-fad #:delete-directory-and-files)
   (:export #:main
            #:preview
            #:*config*