RailsOnLisp/rol-assets

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