[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

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)