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)