[bknr-cvs] hans changed trunk/projects/bos/m2/allocation.lisp

[BKNR Commits]

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))