anchor.diff:          :test #'equal))
   
   (defmethod move-boundary-word ((cursor cursor) &key (backwards nil))
  -  "TODO"
  +  "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 (list :before t)))
         (loop while
  
positive.code: 
  (defvar conservative-word-move nil
    "If non-nil, the cursor moves to the end (resp. beginning) of the word
    when `move-forward-word' (resp. `move-backward-word') are called.")
  
  (defmethod string-representation ((buffer text-buffer))
    (with-output-to-string (out)
  
negative.code:                    (or (position char s :start position)
                         (length s)))
                   white-spaces)))
  