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

[BKNR Commits]

Revision: 3899
Author: ksprotte
URL: http://bknr.net/trac/changeset/3899

print-object allocation-area: life is easier if we dont print free-m2s

U   trunk/projects/bos/m2/allocation.lisp

Modified: trunk/projects/bos/m2/allocation.lisp
===================================================================
--- trunk/projects/bos/m2/allocation.lisp	2008-09-12 15:14:56 UTC (rev 3898)
+++ trunk/projects/bos/m2/allocation.lisp	2008-09-15 13:14:44 UTC (rev 3899)
@@ -24,13 +24,10 @@
 
 (defmethod print-object ((allocation-area allocation-area) stream)
   (print-unreadable-object (allocation-area stream :type t)
-    (format stream "~a x ~a ~:[inactive~;active~] free: ~s ID: ~a"
+    (format stream "~a x ~a ~:[inactive~;active~] ID: ~a"
             (allocation-area-width allocation-area)
             (allocation-area-height allocation-area)
-            (allocation-area-active-p allocation-area)
-            (if (slot-boundp allocation-area 'free-m2s)
-                (allocation-area-free-m2s allocation-area)
-                :unbound)
+            (allocation-area-active-p allocation-area)            
             (store-object-id allocation-area))))
 
 (defmethod allocation-area-free-m2s ((area allocation-area))