From 87b85b1d2985b3d05ebf20d9abed1f986c2efe63 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Tue, 29 Jan 2013 17:49:55 -0500 Subject: [PATCH] This use of dynamic rebinding is more confusing than clever. --- src/coleslaw.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)