anchor.diff:        (pane object (presentation-type-of object))
       (print object pane)))
   (defmethod inspect-object ((object character) pane)
  -  (inspector-table
  +  (inspector-table (object pane)
       (format pane "Character ~S" object)
  -    (inspector-table-row
  -       (princ "code:" pane)
  -       (inspect-object (char-code object) pane))
  -    (inspector-table-row
  -       (princ "int:" pane)
  -       (inspect-object (char-int object) pane))
  -    (inspector-table-row
  -       (princ "name:" pane)
  -       (inspect-object (char-name object) pane))))
  +    (inspector-table-row (pane)
  +      (princ "code:" pane)
  +      (inspect-object (char-code object) pane))
  +    (inspector-table-row (pane)
  +      (princ "int:" pane)
  +      (inspect-object (char-int object) pane))
  +    (inspector-table-row (pane)
  +      (princ "name:" pane)
  +      (inspect-object (char-name object) pane))))
   
   (defun display-app (frame pane)
     "Display the APP frame of the inspector"
  
positive.code: 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
  table using INSPECTOR-TABLE-ROW. Also capured from the macro's
  environment is PANE, which is the pane on which the table will be
  drawn."
    `(with-output-as-presentation
         (pane object (presentation-type-of object))
       (formatting-table (pane)
         (formatting-column (pane)
           (formatting-cell (pane)
             (surrounding-output-with-border (pane)
  	     (with-heading-style (pane)
  	       ,header)))
           (formatting-cell (pane)
             (formatting-table (pane)
               ,@body))))
      (print-documentation object pane)))
  
  (defmacro inspector-table-row (left right)
    "Output a table row with two items, LEFT and RIGHT, in the
  environment created by INSPECTOR-TABLE."
    `(formatting-row (pane)
       (formatting-cell (pane :align-x :right)
         (with-heading-style (pane)
  	 ,left))
       (formatting-cell (pane)
         ,right)))
  
  (defun print-documentation (object pane)
    "Print OBJECT's documentation, if any, to PANE"
  
negative.code:       (princ (package-name object) pane))))
  
  (defmethod inspect-object ((object package) pane)
    (inspector-table (object pane)
      (format pane "Package: ~S" (package-name object))
      (inspector-table-row (pane)
        (princ "Name:" pane)
        (inspect-object (package-name object) pane))
      (inspector-table-row (pane)
        (princ "Nicknames:" pane)
        (inspect-vertical-list (package-nicknames object) pane))
      (inspector-table-row (pane)
        (princ "Used by:")
        (inspect-vertical-list (package-used-by-list object) pane))
      (inspector-table-row (pane)
        (princ "Uses:")
        (inspect-vertical-list (package-use-list object) pane))))
  
  