anchor.diff:  (define-application-frame inspector ()
     ((dico :initform (make-hash-table) :reader dico)
      (cons-cell-dico :initform (make-hash-table) :reader cons-cell-dico)
  -   (print-length :initform (make-hash-table) :reader print-length)
  -   (obj :initarg :obj :reader obj))
  +   (print-length :initform (make-hash-table) :reader print-length
  +		 :documentation "A hash table mapping list objects to
  +their specific print lengths, if they have one.")
  +   (obj :initarg :obj :reader obj
  +	:documentation "The object being inspected"))
     (:pointer-documentation t)
     (:panes
      (app :application :width 600 :height 500
  
positive.code: 
  (define-inspector-command (com-toggle-inspect :name t)
      ((obj t :gesture :select :prompt "Select an object"))
    (unless (eq obj (obj *application-frame*))
    (togglef (gethash obj (dico *application-frame*)))))
  
  (define-inspector-command (com-remove-method :name t)
      ((obj 'method :gesture :delete :prompt "Remove method"))
  
negative.code:   :inherit-from t)
  (define-presentation-type cons ()
    :inherit-from t)
  (define-presentation-type long-list-tail ()
    :inherit-from t)
  
  (define-presentation-method present (object (type settable-slot) 
  				     stream
  