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: 
  (defmethod inspect-object ((object function) pane)
    (with-output-as-presentation
         (pane object 'inspected-function)
      (with-heading-style (pane)
        (princ "Function: " pane))
      (with-text-family (pane :fix)
  
negative.code: 
  (defmethod inspect-object ((object generic-function) pane)
    (inspector-table (object pane)
        (format pane "Generic Function: ~s"
  	      (clim-mop:generic-function-name object))
      (dolist (method (clim-mop:generic-function-methods object))
        (with-output-as-presentation
  	  (pane method (presentation-type-of method))
  