anchor.diff:  (define-presentation-type long-list-tail ()
     :inherit-from t)
   
  -(define-presentation-method present (object (type settable-slot) 
  +(define-presentation-method present (object (type settable-slot)
   					    stream
   					    (view textual-view)
   					    &key acceptably for-context-type)
  
positive.code: 
  (defmethod inspect-object (object pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))  
      (prin1 object pane)))
  
  
  
negative.code: (defmethod inspect-object :around (object pane)
    (cond ((member object *inspected-objects*)
           (with-output-as-presentation
               (pane object (presentation-type-of object))
             (princ "===" pane)))		; Prevent infinite loops
          ((not (gethash object (dico *application-frame*)))
           (inspect-object-briefly object pane))
  