anchor.diff:          ((not (gethash object (dico *application-frame*)))
            (inspect-object-briefly object pane))
           (t
  -         (let ((*inspected-objects* (cons object *inspected-objects*)))
  +	 (let ((*inspected-objects* (cons object *inspected-objects*))
  +               (*print-length* (or (gethash object (print-length
  +						    *application-frame*))
  +                                   *print-length*)))
              (call-next-method)))))
   
   ;; This behavior should be overridden by methods for specific object
  
positive.code:   :inherit-from t)
  (define-presentation-type cons ()
    :inherit-from t)
  
  (define-presentation-method present (object (type settable-slot) 
  				     stream
  
negative.code:                   (formatting-cell (pane) (inspect-object cdr pane))
                    (formatting-cell (pane) (princ ")" pane))
                    t)
  		 ((and *print-length* (>= length *print-length*))
                    (with-output-as-presentation (pane object 'long-list-tail)
                      (formatting-cell (pane) (princ "...)" pane)))
                    t)
                   (t nil)))
            (formatting-cell (pane) (inspect-object car pane)))))))
  