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

[BKNR Commits]

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

contract-node-invalidate-timestamp: only need to update timestamp if
the corresponding blob exists

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

Modified: trunk/projects/bos/web/contract-tree.lisp
===================================================================
--- trunk/projects/bos/web/contract-tree.lisp	2008-07-15 10:07:07 UTC (rev 3440)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-07-15 10:14:00 UTC (rev 3441)
@@ -11,10 +11,8 @@
 
 (defun contract-node-invalidate-timestamp (node)
   (let ((image (contract-node-find-corresponding-store-image node)))
-    (setf (timestamp node)
-	  (if (and image (probe-file (blob-pathname image)))
-	      (1+ (blob-timestamp image))
-	      (get-universal-time)))))
+    (when (and image (probe-file (blob-pathname image)))
+      (setf (timestamp node) (1+ (blob-timestamp image))))))
 
 (defun contract-node-timestamp-updater (contract)
   (lambda (node) (setf (timestamp node)