anchor.diff:         (formatting-column (pane)
            (formatting-cell (pane)
              (surrounding-output-with-border (pane)
  -             ,header))
  +	     (with-heading-style (pane)
  +	       ,header)))
            (formatting-cell (pane)
              (formatting-table (pane)
                ,@body))))
  
positive.code: environment created by INSPECTOR-TABLE."
    `(formatting-row (pane)
       (formatting-cell (pane :align-x :right)
         ,left)
       (formatting-cell (pane)
         ,right)))
  
  
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
  