anchor.diff:  
   (defclass input-hint (hint) ())
   
  +(defclass textarea-hint (hint) ())
  +
   (defmethod object-string ((link-hint link-hint))
     (url link-hint))
   
  
positive.code:   (click-button :buffer (current-buffer) :next-identifier (identifier button-hint)))
  
  (defmethod %follow-hint ((input-hint input-hint))
    (focus-input :buffer (current-buffer) :next-identifier (identifier input-hint)))
  
  (defmethod %follow-hint-new-buffer-focus ((link-hint link-hint))
    (let ((new-buffer (make-buffer)))
  
negative.code: (defmethod object-display ((input-hint input-hint))
    (format nil "~a  Input" (hint input-hint)))
  
  (defmethod object-string ((textarea-hint textarea-hint))
    (hint textarea-hint))
  
  (defmethod object-display ((textarea-hint textarea-hint))
    (format nil "~a  Textarea" (hint textarea-hint)))
  
  (defmethod %follow-hint ((link-hint link-hint))
    (set-url (url link-hint) :buffer (current-buffer) :raw-url-p t))
  
  