marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

This use of dynamic rebinding is more confusing than clever.

Browse source
This commit is contained in:
Brit Butler 2013-01-29 17:49:55 -05:00
parent 93ba4e45fc
commit 87b85b1d29
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/coleslaw.lisp
View file

@ -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.") (:documentation "Deploy the STAGING dir, updating the .prev and .curr symlinks.")
(:method (staging) (:method (staging)
(with-current-directory coleslaw-conf:*basedir* (with-current-directory coleslaw-conf:*basedir*
(let* ((coleslaw-conf:*basedir* (deploy *config*)) (let* ((dest (deploy *config*))
(new-build (app-path "generated/~a" (get-universal-time))) (new-build (rel-path dest "generated/~a" (get-universal-time)))
(prev (app-path ".prev")) (prev (rel-path dest ".prev"))
(curr (app-path ".curr"))) (curr (rel-path dest ".curr")))
(ensure-directories-exist new-build) (ensure-directories-exist new-build)
(run-program "mv ~a ~a" staging new-build) (run-program "mv ~a ~a" staging new-build)
(when (probe-file prev) (when (probe-file prev)