anchor.diff:  (defmethod object-state-class ((object class) (place t))
     'inspected-class)
   
  -;;; Object inspection methods
  ++
  +;;;; Object inspection methods
   
   ;;; `slot-definition'
   
  
positive.code:           (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
                                :label "Superclasses")
            (format-place-cells stream object 'reader-place 'c2mop:class-direct-subclasses
                                :label "Subclasses"))
          (when finalizedp ; TODO else display placeholders
            (formatting-row (stream)
  
negative.code:                                        (stream t))
    (call-next-method))
  
  ;;; `inspected-class-list'
  
  (defmethod inspect-object-using-state ((object cons)
                                         (state  inspected-class-list)
                                         (style  (eql :expanded-body))
                                         (stream t))
    (case (class-list-style state)
      (list
       (call-next-method))
      (:graph
       (inspect-object-using-state object state :inheritance-graph stream))))
  
  (defmethod inspect-object-using-state ((object cons)
                                         (state  inspected-class-list)
                                         (style  (eql :inheritance-graph))
                                         (stream t))
    ;; Present a graph that shows CLASS in relation to the classes in
    ;; the list OBJECT and other related classes.
    (let ((class (container (place state))))
      (format-graph-from-roots
       (list* class object)
       (lambda (other-class stream)
         (cond ((eq other-class class)
                (with-style (stream :header)
                  (inspect-class-as-name other-class stream)))
               ((find other-class object :test #'eq)
                (inspect-class-as-name other-class stream))
               (t
                (with-style (stream :unbound)
                  (inspect-class-as-name other-class stream)))))
       (relation (place state))
       :stream stream :orientation :vertical
       :graph-type :dag :merge-duplicates t :maximize-generations t)))
  
  ;;; `class'
  
  