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:           (error "Glob pattern didn't match anything: ~A" (concatenate-fragments fragments)))
          (fset:seq fragments))))
  
  (defun concatenate-fragments-for-words (word-fragment-sequences)
    (mapped-iterator word-fragment-sequences 'concatenate-fragments))
  
  (defun concatenate-fragments (fragments)
  
negative.code:               (when (and (not started) (eq start-at ',name))
                  (setf started t))
                (when (eq end-at ',name)
                  (unless started
                    (error "Invalid start point ~A" start-at))
                  (return-from compute-expansion-pipeline pipeline))
                (when (and started ,name)
                  (vector-push-extend ',name pipeline)))))
  