anchor.diff:                                          :url (cdr (assoc :href element))))
                           ((equal "button" object-type)
                            (make-instance 'button-hint
  +                                        :identifier (cdr (assoc :identifier element))
                                           :hint (cdr (assoc :hint element))))))))
   
   (defclass hint ()
     ((hint :accessor hint :initarg :hint)
  -   (identifier :accessor identifier :initarg identifier)))
  +   (identifier :accessor identifier :initarg :identifier)))
   
   (defclass button-hint (hint) ())
   
  
positive.code: (define-parenscript %remove-element-hints ()
    (defun hints-remove-all ()
      "Removes all the elements"
      (ps:dolist (element (qsa document ".next-element-hint"))
        (ps:chain element (remove))))
    (hints-remove-all))
  
  (defun remove-element-hints ()
    (%remove-element-hints
  
negative.code:     (ps:let* ((rect (ps:chain element (get-bounding-client-rect)))
                (position (hint-determine-position rect))
                (element (ps:chain document (create-element "span"))))
        (setf (ps:@ element class-name) "next-hint")
        (setf (ps:@ element style) (ps:lisp (box-style (current-buffer))))
        (setf (ps:@ element style position) "absolute")
        (setf (ps:@ element style left) (+ (ps:@ position left) "px"))
  