Changeset 3440

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

use contract-node-invalidate-timestamp for remove-contract

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3439 r3440  
    1010   (image-req-count :initform 0 :accessor image-req-count))) 
    1111 
    12 (defun contract-node-set-timestamp-now (node) 
    13   (setf (timestamp node) (get-universal-time))) 
     12(defun contract-node-invalidate-timestamp (node) 
     13  (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))))) 
    1418 
    1519(defun contract-node-timestamp-updater (contract) 
    …… 
    103107            (delete contract (placemark-contracts node))) 
    104108      ;; mark intersecting children as dirty 
    105       (ensure-intersecting-children contract-tree geo-box #'contract-node-set-timestamp-now)))) 
     109      (ensure-intersecting-children contract-tree geo-box #'contract-node-invalidate-timestamp)))) 
    106110 
    107111(defun contract-tree-changed (contract-tree contract &key type)