anchor.diff:      (print object pane)))
   (defmethod inspect-object ((object character) pane)
     (inspector-table (object pane)
  -    (format pane "Character ~S" object)
  -    (inspector-table-row (pane)
  -      (princ "code:" pane)
  +      (format pane "Character ~S" object)
  +    (inspector-table-row (pane)
  +	(princ "code:" pane)
         (inspect-object (char-code object) pane))
       (inspector-table-row (pane)
  -      (princ "int:" pane)
  +	(princ "int:" pane)
         (inspect-object (char-int object) pane))
       (inspector-table-row (pane)
  -      (princ "name:" pane)
  +	(princ "name:" pane)
         (inspect-object (char-name object) pane))))
   
   (defun display-app (frame pane)
  
positive.code:   "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 ((object pane) header &body body)
    "Present OBJECT in tabular form on PANE, with HEADER evaluated to
  
negative.code:     (princ 'hash-table pane)))
  (defmethod inspect-object ((object hash-table) pane)
    (inspector-table (object pane)
        (format pane "~A (test: ~A)" 'hash-table (hash-table-test object))
      (loop for key being the hash-keys of object
            do (formatting-row (pane)
  	       (formatting-cell (pane :align-x :right)
  