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