diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index 35c31b5..be7bee4 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -57,10 +57,10 @@ Additional args to render CONTENT can be passed via RENDER-ARGS." (:documentation "Deploy the STAGING dir, updating the .prev and .curr symlinks.") (:method (staging) (with-current-directory coleslaw-conf:*basedir* - (let* ((coleslaw-conf:*basedir* (deploy *config*)) - (new-build (app-path "generated/~a" (get-universal-time))) - (prev (app-path ".prev")) - (curr (app-path ".curr"))) + (let* ((dest (deploy *config*)) + (new-build (rel-path dest "generated/~a" (get-universal-time))) + (prev (rel-path dest ".prev")) + (curr (rel-path dest ".curr"))) (ensure-directories-exist new-build) (run-program "mv ~a ~a" staging new-build) (when (probe-file prev)