anchor.diff:  
   (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*)))))
  +  (unless (or (eq obj (obj *application-frame*))
  +	      (null obj))
  +    (togglef (gethash obj (dico *application-frame*)))))
   
   (define-inspector-command (com-remove-method :name t)
       ((obj 'method :gesture :delete :prompt "Remove method"))
  
positive.code:   (inspector-table
        (format pane "~A (test: ~A)" 'hash-table (hash-table-test object))
      (loop for key being the hash-keys of object
            do (inspector-table-row
                  (formatting-cell (pane)
                    (inspect-object key pane)
                    (princ "=" pane))
                  (inspect-object (gethash key object) pane)))))
  
  (defmethod inspect-object ((object generic-function) pane)
    (inspector-table
  
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
  