anchor.diff:  only the class name would be shown."))
   
   (defgeneric inspect-object (object pane)
  -  (:documentation "Inspect an object, displaying it on PANE"))
  +  (:documentation "Inspect an object, displaying it on PANE. This can
  +be as verbose as you like; the important thing is that all the
  +information is present."))
   
   (defmethod inspect-object :around (object pane)
     (cond ((member object *inspected-objects*)
  
positive.code: (defmethod inspect-object-briefly ((object symbol) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (print object)))
  
  (defmethod inspect-object ((object symbol) pane)
    (inspector-table
  
negative.code:       (when documentation
  	(format stream "~&Documentation: ~A~%" documentation))
        (format stream "~&Type: ~S~%"
  	      (clim-mop:slot-definition-type slot-object))
        (format stream "~&Allocation: ~S~%"
  	      (clim-mop:slot-definition-allocation slot-object))
        ;; FIXME: This should show readers and writers, but it doesn't
        ;; work on SBCL 0.8.16 for me. Is this an SBCL-specific problem?
        ;; Is the code broken?
        (when (clim-mop:slot-definition-readers slot-object)
  	(format stream "~&Readers: ")
  	(format-textual-list (clim-mop:slot-definition-readers slot-object)
  			     #'inspect-object))
        (when (clim-mop:slot-definition-writers slot-object)
  	(format stream "~&Writers: ")
  	(format-textual-list (clim-mop:slot-definition-writers slot-object)
  			     #'inspect-object)))))