anchor.diff:      t))
   
   (defmethod word-separation-characters-at-cursor-p ((cursor cursor)
  -                                                   &key (before nil))
  +                                                   &key before)
     "Return non-nil when `word-separation-characters' are found before or
   after the cursor position."
     (find (if before
  
positive.code:                       (cluffer:end-of-line-p cursor)))
      (loop while
            (not (apply #'word-separation-characters-at-cursor-p
                        cursor (when backwards (list :before t))))
            do (if backwards
                   (cluffer:backward-item cursor)
                   (cluffer:forward-item cursor))
  
negative.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)))
  