anchor.diff:                     (or (position char s :start position)
                          (length s)))
                    white-spaces)))
  -
  
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:         :test #'equal))
  
  (defmethod move-boundary-word ((cursor cursor) &key (backwards nil))
    "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
  