Revision: 3469 Author: ksprotte URL: http://bknr.net/trac/changeset/3469
use with-transaction around setf allocation-area bounding-box
U trunk/projects/bos/m2/allocation.lisp
Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-07-16 14:41:37 UTC (rev 3468) +++ trunk/projects/bos/m2/allocation.lisp 2008-07-16 14:50:25 UTC (rev 3469) @@ -164,11 +164,12 @@ (defmethod allocation-area-bounding-box ((allocation-area allocation-area)) (with-slots (left top width height bounding-box) allocation-area (unless (slot-boundp allocation-area 'bounding-box) - (setf bounding-box (coerce (list (cons left top) - (cons (+ left width) top) - (cons (+ left width) (+ top height)) - (cons left (+ top height))) - 'vector))) + (with-transaction ("setf allocation-area bounding-box") + (setf bounding-box (coerce (list (cons left top) + (cons (+ left width) top) + (cons (+ left width) (+ top height)) + (cons left (+ top height))) + 'vector)))) bounding-box))
(defmethod allocation-area-bounding-box2 ((allocation-area allocation-area))