anchor.diff:        (when documentation
   	(format stream "~&Documentation: ~A~%" documentation))
         (format stream "~&Type: ~S~%"
  -	      (clim-mop:slot-definition-type slot-object)))))+	      (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)))))
positive.code: only the class name would be shown."))
  
  (defgeneric inspect-object (object pane)
    (:documentation "Inspect an object, displaying it on PANE"))
  
  (defmethod inspect-object :around (object pane)
    (cond ((member object *inspected-objects*)
  
negative.code: (defmethod inspect-object-briefly ((object symbol) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (prin1 object)))
  
  (defmethod inspect-object ((object symbol) pane)
    (inspector-table
  