[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

Revision: 3786
Author: ksprotte
URL: http://bknr.net/trac/changeset/3786

contract-tree image update daemon: avoid error in delete-file if
(blob-pathname old-store-image) of old-store-image does not exist

U   trunk/projects/bos/web/contract-tree.lisp

Modified: trunk/projects/bos/web/contract-tree.lisp
===================================================================
--- trunk/projects/bos/web/contract-tree.lisp	2008-09-04 09:24:47 UTC (rev 3785)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-09-04 09:49:18 UTC (rev 3786)
@@ -270,7 +270,10 @@
           (setf (image node) new-store-image)
           ;; delete the old one
           (when old-store-image
-            (delete-file (blob-pathname old-store-image))
+            (if (probe-file (blob-pathname old-store-image))
+                (delete-file (blob-pathname old-store-image))
+                (warn "Intended to delete ~A of ~A.~%But it already does not exist."
+                      (blob-pathname old-store-image) old-store-image))
             (delete-object old-store-image)))))))
 
 (defun contract-node-update-image-needed-p (node)