anchor.diff:            (inspect-object (imagpart object) pane))
           (formatting-cell (pane)
             (princ ")" pane))))))
  +
  +(defmethod inspect-object-briefly ((object complex) pane)
  +  (inspect-complex object pane))
  +
  +(defmethod inspect-object ((object complex) pane)
  +  (inspect-complex object pane))
   
   (defmethod inspect-object ((object float) pane)
     (inspector-table
  
positive.code:     (run-frame-top-level
       (make-application-frame 'inspector :obj obj))))
  
  (defparameter *inspected-objects* '())
  
  (defgeneric inspect-object-briefly (object pane))
  (defgeneric inspect-object (object pane))
  
  (defmethod inspect-object :around (object pane)
    (cond ((member object *inspected-objects*)
           (with-output-as-presentation
               (pane object (presentation-type-of object)) 
             (princ "===")))
          ((not (gethash object (dico *application-frame*)))
           (inspect-object-briefly object pane))
          (t
  
negative.code:        (princ "propery list:")
         (dolist (property (symbol-plist object))
           (inspect-object property pane)))))
  (make-instance 'packrat)
  ;; Characters are so short that displaying them as "..."  takes almost
  ;; as much space as just showing them, and this way is more
  ;; informative.
  (defmethod inspect-object-briefly ((object character) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (print object pane)))
  
  (defun display-app (frame pane)
    "Display the APP frame of the inspector"
    (inspect-object (obj frame) pane))
  
  (define-inspector-command (com-quit :name t) ()
  