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:     (inspector obj :new-process t)))
  
  (define-inspector-command (com-toggle-show-list-cells :name t)
      ((obj 'cons :gesture :select :prompt "Select a cons or list"))
    (togglef (gethash obj (cons-cell-dico *application-frame*))))
  
  (define-inspector-command (com-show-10-more-items :name t)
      ((obj 'long-list-tail :gesture :select :prompt "Select a truncated list"))
    (if (gethash obj (print-length *application-frame*))
        (incf (gethash obj (print-length *application-frame*)) 10)
        (setf (gethash obj (print-length *application-frame*))
  	    (+ 10 *print-length*))))
  
  (define-inspector-command (com-toggle-inspect :name t)
      ((obj t :gesture :select :prompt "Select an object"))
  