anchor.diff:    (declare (ignore acceptably for-context-type))
     (format stream "~s" (cdr object)))
   
  +(defmacro with-heading-style ((stream) &body body)
  +  "Cause text output from BODY to be formatted in a heading font. This
  +could be boldface, or a different style, or even another font."
  +  `(with-text-face (,stream :bold)
  +     ,@body))
  +
   (defmacro inspector-table (header &body body)
     "Present OBJECT (captured from environment) in tabular form, with
   HEADER printed in a box at the top. BODY should output the rows of the
  
positive.code: (defmethod inspect-object ((object function) pane)
    (with-output-as-presentation
         (pane object (presentation-type-of object))
      (format pane "Function: ~A"
  	    (pretty-print-function object))
      #+sbcl
      (unless (typep object 'generic-function)
        (format pane "~&Type: ~A"
  	      (sb-kernel:%simple-fun-type (sb-kernel:%closure-fun object))))
      (print-documentation object pane)))
  
  (defmethod inspect-object-briefly ((object package) 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
  