Revision: 3550 Author: ksprotte URL: http://bknr.net/trac/changeset/3550

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

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-22 10:42:59 UTC (rev 3549) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-22 10:51:32 UTC (rev 3550) @@ -299,11 +299,7 @@ (map-nodes #'contract-node-update-image *contract-tree*))

(defun contract-tree-needs-update-p () - (map-nodes (lambda (node) (when (contract-node-update-image-needed-p node) - (return-from contract-tree-needs-update-p t))) - *contract-tree* - :order :breadth-first) - nil) + (contract-node-update-image-needed-p *contract-tree*))

;;; image handler (defclass contract-tree-image-handler (page-handler)