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)