anchor.diff:                                       (expand-aliases t)
                                        (expand-token-sequence t)
                                        (expand-tilde-words t)
  -                                     (expand-pathname-words t)
  +                                     (expand-to-wild-paths t)
  +                                     (expand-wild-paths t)
                                        (concatenate-fragmented-words t))
     "Produce a sequence representing an expansion sequence.
   
  
positive.code:       pipeline)))
  
  (defun expansion-for-words (things &key expand-aliases expand-pathname-words
                                       pipeline (split-fields t)
                                       (allow-side-effects t))
    "Perform expansion on a sequence of tokens.
  
  This always performs the expansion done by the `expand' generic
  
negative.code: The value of the `allow-side-effects' keyword argument is bound to the
  `*allow-side-effects*' special variable.  See that variable's
  documentation to understand how it impacts expansion."
    (let ((pipeline (compute-expansion-pipeline
                     :expand-aliases expand-aliases
                     :expand-token-sequence t
                     :expand-to-wild-paths expand-pathname-words
                     :expand-wild-paths expand-pathname-words
                     :concatenate-fragmented-words t)))
      (run-expansion-pipeline things pipeline
                              :split-fields split-fields
                              :allow-side-effects allow-side-effects)))
  
  (defstruct wild-path
    "This struct represents a path which may have components which
  