Changeset 3899

Show
Ignore:
Timestamp:
09/15/08 15:14:44 (2 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3895 r3899  
    2525(defmethod print-object ((allocation-area allocation-area) stream) 
    2626  (print-unreadable-object (allocation-area stream :type t) 
    27     (format stream "~a x ~a ~:[inactive~;active~] free: ~s ID: ~a" 
     27    (format stream "~a x ~a ~:[inactive~;active~] ID: ~a" 
    2828            (allocation-area-width allocation-area) 
    2929            (allocation-area-height allocation-area) 
    30             (allocation-area-active-p allocation-area) 
    31             (if (slot-boundp allocation-area 'free-m2s) 
    32                 (allocation-area-free-m2s allocation-area) 
    33                 :unbound) 
     30            (allocation-area-active-p allocation-area)             
    3431            (store-object-id allocation-area)))) 
    3532