anchor.diff:            (format-place-cells stream object 'reader-place 'class-name :label "Name")
             (format-place-cells stream object 'reader-place 'class-of :label "Metaclass"))
           (formatting-row (stream)
  -          (format-place-cells stream object 'reader-place 'c2mop:class-direct-superclasses
  +          (format-place-cells stream object 'superclass-list-place nil
                                 :label "Superclasses")
  -          (format-place-cells stream object 'reader-place 'c2mop:class-direct-subclasses
  +          (format-place-cells stream object 'subclass-list-place nil
                                 :label "Subclasses"))
           (when finalizedp ; TODO else display placeholders
             (formatting-row (stream)
  
positive.code: 
    (call-next-method))
  
  ;;; Commands
  
  (define-command (com-finalize :command-table inspector-command-table
                                :name          "Finalize Class")
  
negative.code: (defmethod object-state-class ((object class) (place t))
    'inspected-class)
  
  
  ;;;; Object inspection methods
  
  ;;; `slot-definition'
  
  