anchor.diff:  environment created by INSPECTOR-TABLE."
     `(formatting-row (pane)
        (formatting-cell (pane :align-x :right)
  -       ,left)
  +       (with-heading-style (pane)
  +	 ,left))
        (formatting-cell (pane)
          ,right)))
   
  
positive.code: 	      (format pane "#<~S ...>" (class-name (class-of object)))))
        (error ()
  	(format pane "#<unprintable ~S>" (class-name (class-of object)))))))
  
  ;; Try to print the normal, textual representation of an object, but
  ;; if that's too long, make an abbreviated "instance of ~S" version.
  
  (defmethod inspect-object-briefly ((object standard-object) pane)
    (inspect-structure-or-object-briefly object pane))
  
negative.code:   "Print OBJECT's documentation, if any, to PANE"
    (when (handler-bind ((warning #'muffle-warning))
  	  (documentation object t))
      (with-heading-style (pane)
        (format pane "~&Documentation: "))
      (princ (documentation object t) pane)))
  
  (defun inspect-structure-or-object (object pane)
    "Inspect a structure or an object. Since both can be inspected in
  