anchor.diff:      (values result exit-infos)))
   
   (defun expand-token (token)
  +  "Run `expand' on the given token and process the result into a
  +sequence of fragment sequences.
  +
  +`expand' returns a sequence of string fragments and word boundaries.
  +Two consecutive string fragments are understood to be parts of the
  +same word.  This function groups consecutive string fragments and
  +removes word boundaries from the result.  So, the return value of this
  +function is a sequence of sequences of string fragments.  Each
  +sequence of string fragments represents a word."
     (multiple-value-bind (expansion-fragments exit-info) (expand token)
       (let ((result (fset:empty-seq))
             next-word)
  
positive.code:         (fset:image #'prepare-match matches)))))
  
  (defun expand-tilde-words (fragment-seqs)
    (sequence-map fragment-seqs 'expand-tilde))
  
  (defun expand-tilde (fragments)
  
negative.code:                        :expand-aliases expand-aliases
                         :expand-token-sequence t
                         :expand-pathname-words expand-pathname-words
                         :concatenate-fragmented-words t))))
      (run-expansion-pipeline things pipeline)))
  
  (defstruct wild-path
  