Revision: 3475 Author: hans URL: http://bknr.net/trac/changeset/3475
updates to transient slots no longer update LAST-CHANGE, so revert 3469 U trunk/projects/bos/m2/allocation.lisp
Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-07-17 06:09:00 UTC (rev 3474) +++ trunk/projects/bos/m2/allocation.lisp 2008-07-17 06:11:30 UTC (rev 3475) @@ -164,12 +164,11 @@ (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) - (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)))) + (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))