anchor.diff:    `(:regex ,(concatenate 'string "[" chars "]")))
   
   (defun make-wild-path-component-from-fragments (fragments)
  +  "Translate a `fset:seq' of fragments into a description of a path
  +component.
  +
  +The return value is appropriate for storing in a `wild-path'."
     (let ((fragment-stream (make-fragment-stream :fragments fragments))
           (result (make-extensible-vector)))
       (labels
  
positive.code:     (or (and file-name (not (stringp file-name)))
          (find-if-not 'stringp directories))))
  
  (defun split-fragments-into-segments (fragments)
    (let ((result (fset:empty-seq))
          (part (fset:empty-seq)))
      (loop :while (not (zerop (fset:size fragments))) :do
  
negative.code:     result))
  
  (defun handle-leading-slashes (segments)
    "Strip off empty segments from the start of the segment sequence.
  
  See `split-fragments-into-directory-segments'.
  
  Returns two values:
  1. A string containing the leading slashes implied by the leading
     empty segments.
  2. The remaining segments after the leading non-file empty segments
     are removed."
    (let ((slash-stream (make-string-output-stream)))
      (loop :while (and (< 1 (fset:size segments)) ;; Don't touch the last segment
                        (zerop (fset:size (fset:first segments))))
  