Changeset 3549

Show
Ignore:
Timestamp:
07/22/08 12:42:59 (4 months ago)
Author:
ksprotte
Message:

added CONTRACT-TREE-NEEDS-UPDATE-P

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3539 r3549  
    299299  (map-nodes #'contract-node-update-image *contract-tree*)) 
    300300 
     301(defun contract-tree-needs-update-p () 
     302  (map-nodes (lambda (node) (when (contract-node-update-image-needed-p node) 
     303                              (return-from contract-tree-needs-update-p t))) 
     304             *contract-tree*              
     305             :order :breadth-first) 
     306  nil) 
     307 
    301308;;; image handler 
    302309(defclass contract-tree-image-handler (page-handler)