Changeset 3441

Show
Ignore:
Timestamp:
07/15/08 12:14:00 (4 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3440 r3441  
    1212(defun contract-node-invalidate-timestamp (node) 
    1313  (let ((image (contract-node-find-corresponding-store-image node))) 
    14     (setf (timestamp node) 
    15           (if (and image (probe-file (blob-pathname image))) 
    16               (1+ (blob-timestamp image)) 
    17               (get-universal-time))))) 
     14    (when (and image (probe-file (blob-pathname image))) 
     15      (setf (timestamp node) (1+ (blob-timestamp image)))))) 
    1816 
    1917(defun contract-node-timestamp-updater (contract)