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:            (unless (zerop (fset:size matches))
               matches)))))))
  
  (defun expand-wild-path (wild-path)
    "Given a `wild-path', produce an `fset:seq' of strings representing
  the paths that were matched.
  
  Returns nil if no matches were found."
    (unless (wild-path-wild-p wild-path)
      (error "Expansion of non-wild wild-paths is not supported"))
  
    (let ((matches
           (with-local-working-directory (".")
             (%expand-wild-path (wild-path-directories wild-path) 0 (wild-path-file-name wild-path)))))
      (when matches
        (labels
            ((prepare-match (match)
               (fset:seq (make-string-fragment (fset:convert 'string match) :quoted-p t))))
          (declare (dynamic-extent #'prepare-match))
          (fset:image #'prepare-match matches)))))
  
  (defun expand-tilde-words (fragment-seqs)
    "Perform tilde expansion on the given sequence of fragment
  
negative.code:   "Translate a `fset:seq' of fragments into a `wild-path'."
    (multiple-value-bind (absolute-part remaining-segments)
        (handle-leading-slashes (split-fragments-into-directory-segments fragments))
      (let ((path (make-wild-path :original-fragments fragments)))
        (with-accessors
              ((directories wild-path-directories)
               (file-name wild-path-file-name))
  