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