anchor.diff:  (defmethod inspect-object-briefly (object pane)
     (with-output-as-presentation
         (pane object (presentation-type-of object))
  -    (princ "...")))
  +    (princ "..." pane)))
   
   (defmethod inspect-object (object pane)
     (with-output-as-presentation
  
positive.code:   (cond ((member object *inspected-objects*)
           (with-output-as-presentation
               (pane object (presentation-type-of object)) 
             (princ "===")))		; Prevent infinite loops
          ((not (gethash object (dico *application-frame*)))
           (inspect-object-briefly object pane))
          (t
  
negative.code: 	  (formatting-cell (pane)
  	    (inspect-object (cdr object) pane))))))
  
  (defun inspect-vertical-list (object pane &key honor-dico)
    "Inspect a list without the parentheses, putting each element on a
  new line. This is useful for showing things like direct class
  subclasses, since displaying those as a plain list looks ugly and is
  inconvenient to use. If HONOR-DICO is t, this will respect DICO and
  display '...' if OBJECT is not in DICO."
    ;; Ordinarily this would be taken care of in the :around method for
    ;; INSPECT-OBJECT, but since this is not a normal inspection view,
    ;; we need to do it ourselves. Yes, it would be better if we could
  