From 3a83616bb8d13ec616b95df07e68f5196144c802 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Wed, 29 Aug 2012 23:48:14 -0400 Subject: [PATCH] I am idiot sometimes. Fix DEPLOY. --- src/coleslaw.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index 123f654..ee80d40 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -46,10 +46,11 @@ If RAW is non-nil, write the content without wrapping it in the base template." (curr (app-path ".curr"))) (ensure-directories-exist new-build) (run-program "mv ~a ~a" staging new-build) - ; KLUDGE: Is there a better way to portably catch dead symlinks? - (if (and (probe-file prev) (equal prev (ignore-errors (truename prev)))) - (delete-file prev) - (cl-fad:delete-directory-and-files (truename prev))) + (when (probe-file prev) + (let ((dest (truename prev))) + (if (equal prev dest) + (delete-file prev) + (cl-fad:delete-directory-and-files dest)))) (when (probe-file curr) (update-symlink prev (truename curr))) (update-symlink curr new-build)))))