Changeset 3424

Show
Ignore:
Timestamp:
07/11/08 16:44:23 (6 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3294 r3424  
    217217                    (setf (cl-gd:raw-pixel) 
    218218                          (let* ((m2 (ignore-errors (get-m2 m2x m2y))) 
     219                                 (%contract (m2-contract m2)) 
    219220                                 (contract (and m2 
    220                                                 (m2-contract m2) 
    221                                                 (contract-paidp (m2-contract m2)) 
    222                                                 (m2-contract m2)))) 
     221                                                %contract 
     222                                                (contract-paidp %contract) 
     223                                                %contract))) 
    223224                            (if contract 
    224225                                (destructuring-bind (r g b)