anchor.diff:      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))))
  
positive.code:         (coerce result 'simple-string))))
  
  (defun make-wild-path-from-fragments (fragments)
    (multiple-value-bind (absolute-part remaining-segments)
        (handle-leading-slashes (split-fragments-into-segments fragments))
      (let ((path (make-wild-path)))
        (with-accessors
              ((directories wild-path-directories)
  
negative.code:   `(: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
  