diff --git a/digest.lisp b/digest.lisp
index ecff040..5136f42 100644
--- a/digest.lisp
+++ b/digest.lisp
@@ -27,9 +27,11 @@
(defmethod digest-asset ((asset asset) (path pathname))
(setf (asset-digest asset) (digest-file path))
(let ((digest-path (asset-path asset)))
+ (when (probe-file digest-path)
+ (sb-posix:unlink digest-path))
(sb-posix:link path digest-path)
- (sb-posix:unlink path)
- (sb-posix:symlink (make-pathname :name (pathname-name digest-path)
+ #+nil(sb-posix:unlink path)
+ #+nil(sb-posix:symlink (make-pathname :name (pathname-name digest-path)
:type (pathname-type digest-path))
path)
digest-path))
diff --git a/gzip.lisp b/gzip.lisp
index d487723..51a660e 100644
--- a/gzip.lisp
+++ b/gzip.lisp
@@ -26,6 +26,8 @@
(external-program:run "gzip" (list "-c")
:input input
:output tmp)
+ (when (probe-file output)
+ (sb-posix:unlink output))
(sb-posix:link tmp output)
output))