anchor.diff:                    (formatting-cell (pane) (inspect-object cdr pane))
                     (formatting-cell (pane) (princ ")" pane))
                     t)
  -                 ((>= length *print-length*)
  -                  (formatting-cell (pane) (inspect-object car pane))
  -                  (formatting-cell (pane) (princ "..." pane))
  +		 ((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)))))))
  
positive.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-toggle-inspect :name t)
      ((obj t :gesture :select :prompt "Select an object"))
  
negative.code:         ((not (gethash object (dico *application-frame*)))
           (inspect-object-briefly object pane))
          (t
  	 (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
  