From 336763644d214f99a4bc741a185a2cfb41037bc5 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Sun, 19 Aug 2012 00:42:40 -0400 Subject: [PATCH] Don't pass pathnames to RUN-PROGRAM. --- src/coleslaw.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index c172c56..bf79a02 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -32,12 +32,14 @@ (defun deploy (dir) "Deploy DIR, updating the .prev and .curr symlinks." - (let ((new-build (app-path (format nil "generated/~a" (get-universal-time))))) - (run-program "mv" (list dir (app-path new-build))) + (let ((new-build (namestring (app-path (format nil "generated/~a" + (get-universal-time)))))) + (run-program "mv" (list dir new-build)) (when (probe-file (app-path ".prev")) (delete-files (read-symlink (app-path ".prev")) :recursive t)) (when (probe-file (app-path ".curr")) - (run-program "ln" (list "-sfn" (read-symlink (app-path ".curr")) ".prev"))) + (let ((curr-build (namestring (read-symlink (app-path ".curr"))))) + (run-program "ln" (list "-sfn" curr-build ".prev")))) (run-program "ln" (list "-sfn" new-build ".curr"))) (setf (last-published) (last-commit)))