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

contract-tree image handler dont call (m2-contract m2) more often than needed

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-10 15:41:02 UTC (rev 3423) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-11 14:44:23 UTC (rev 3424) @@ -216,10 +216,11 @@ (geo-box-middle-m2coord subbox) (setf (cl-gd:raw-pixel) (let* ((m2 (ignore-errors (get-m2 m2x m2y))) + (%contract (m2-contract m2)) (contract (and m2 - (m2-contract m2) - (contract-paidp (m2-contract m2)) - (m2-contract m2)))) + %contract + (contract-paidp %contract) + %contract))) (if contract (destructuring-bind (r g b) (contract-color contract)