anchor.diff:                         :expand-aliases expand-aliases
                          :expand-token-sequence t
                          :expand-pathname-words expand-pathname-words
  -                       :concatenate-fragments-for-words t))))
  +                       :concatenate-fragmented-words t))))
       (run-expansion-pipeline things pipeline)))
   
   (defstruct wild-path
  
positive.code:               (when (and (not started) (eq start-at ',name))
                  (setf started t))
                (when (eq end-at ',name)
                  (return-from compute-expansion-pipeline pipeline))
                (when (and started ,name)
                  (vector-push-extend ',name pipeline)))))
  
negative.code:       (consider expand-token-sequence)
        (consider expand-tilde-words)
        (consider expand-pathname-words)
        (consider concatenate-fragmented-words)
        (when (and start-at (not started))
          (error "Invalid start point ~A" start-at))
        (when end-at
          (error "Invalid end point ~A" end-at))
        pipeline)))
  
  (defun expansion-for-words (things &key expand-aliases expand-pathname-words
  