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

Well, that was easy.

Browse source
This commit is contained in:
Brit Butler 2012-08-21 19:53:31 -04:00
parent 8787fa0f21
commit 2c2af43c76
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/coleslaw.lisp
View file

@ -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"))))