Changeset 3550

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

better implementation for contract-tree-needs-update-p

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3549 r3550  
    300300 
    301301(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) 
     302  (contract-node-update-image-needed-p *contract-tree*)) 
    307303 
    308304;;; image handler