anchor.diff:  (defmethod object-string ((button-hint button-hint))
     (format nil "~a  Button" (hint button-hint)))
   
  +(defgeneric follow-hint-action (hint)
  +  (:documentation "Action preformed for follow-hint"))
  +
  +(defmethod follow-hint-action ((link-hint link-hint))
  +  (set-url (url link-hint) :buffer (current-buffer) :raw-url-p t))
  +
  +(defmethod follow-hint-action ((button-hint button-hint))
  +  (click-button :buffer (current-buffer) :next-identifier (identifier button-hint)))
  +
   (define-command follow-hint ()
     "Show a set of element hints, and go to the user inputted one in the
   currently active buffer."
     (query-hints "Go to element:" (selected-element)
  -    (set-url (url selected-element) :buffer (current-buffer) :raw-url-p t)))
  +    (follow-hint-action selected-element)))
   
   (define-command follow-hint-new-buffer ()
     "Show a set of element hints, and open the user inputted one in a new
  
positive.code:                                         :url (cdr (assoc :href element))))
                          ((equal "button" object-type)
                           (make-instance 'button-hint
                                          :hint (cdr (assoc :hint element))))))))
  
  (defclass hint ()
    ((hint :accessor hint :initarg :hint)
     (identifier :accessor identifier :initarg identifier)))
  
  (defclass button-hint (hint) ())
  
  
negative.code:       (setf (ps:@ element text-content) hint)
        element))
    (defun hint-add (element hint)
      "Adds a hint on a single element. Additionally sets a unique
  identifier for every hinted element."
      (ps:chain element (set-attribute "next-identifier" hint))
      (ps:let ((hint-element (hint-create-element element hint)))
        (ps:chain document body (append-child hint-element))))
    (defun object-create (element hint)
      (cond ((equal "A" (ps:@ element tag-name))
             (ps:create "type" "link" "hint" hint "href" (ps:@ element href)))
            ((equal "BUTTON" (ps:@ element tag-name))
             (ps:create "type" "button" "hint" hint "identifier" hint))))
    (defun hints-add (elements)
      "Adds hints on elements"
      (ps:let* ((elements-length (length elements))
  