anchor.diff:                        (cluffer:end-of-line-p cursor)))
       (loop while
             (not (apply #'word-separation-characters-at-cursor-p
  -                      cursor (when backwards (list :before t))))
  +                      cursor (when backwards '(:before t))))
             do (if backwards
                    (cluffer:backward-item cursor)
                    (cluffer:forward-item cursor))
  
positive.code:   (if conservative-word-move
        (loop repeat 2
              do (move-boundary-word cursor))
      (move-boundary-word cursor)))
  
  (defmethod move-backward-word ((cursor cursor))
    (if conservative-word-move
        (loop repeat 2
              do (move-boundary-word cursor :backwards t))
      (move-boundary-word cursor :backwards t)))
  
  (defmethod delete-backward-word ((cursor cursor))
    (dotimes (i (- (cluffer:cursor-position cursor) (or (nth-value 1 (move-backward-word cursor)) 0)))
  
negative.code:         (word-separation-characters cursor)
          :test #'equal))
  
  (defmethod move-boundary-word ((cursor cursor) &key backwards)
    "Move the cursor to the nearest boundary of a word while moving
  forward of backwards.
  
  Notice that a word is bounded by `word-separation-characters'."
    (if (apply #'word-separation-characters-at-cursor-p
               cursor (when backwards '(:before t)))
        (loop while
              (apply #'word-separation-characters-at-cursor-p
                     cursor (when backwards '(:before t)))
              do (if backwards
                     (cluffer:backward-item cursor)
                     (cluffer:forward-item cursor))
  