anchor.diff:        pathname-expansion-results)))
   
   (defstruct wild-path
  +  "This struct represents a path which may have components which
  +contain wildcards.
  +
  +The first element of `directories' may start with slash characters.
  +This indicates that the path is absolute.  If the first directory
  +component doesn't start with a slash, then the path may be assumed to
  +be relative.
  +
  +A wildcard component of the path is simply a scanner returned by
  +`cl-ppcre:create-scanner'.
  +
  +How wild!"
     file-name
     (directories (make-extensible-vector)))
   
   (defun wild-path-wild-p (wild-path)
  +  "Returns non-nil if the given `wild-path' contains wildcard
  +components."
     (with-accessors
           ((file-name wild-path-file-name) (directories wild-path-directories))
         wild-path
  
positive.code:         (fset:seq (make-string-fragment value)))))
  
  (defun ifs-parts (ifs)
    (labels ((blank (c) (cl-unicode:has-binary-property c "White_Space"))
             (not-blank (c) (not (blank c))))
      (values
  
negative.code:         path))))
  
  (defun directory-contents-iterator (dir-ptr)
    "Return an iterator which returns the contents of the given directory.
  
  `dir-ptr' is assumed to remain valid for the lifetime of this
  iterator.  Using this iterator after `dir-ptr' has been closed results
  in undefined behavior."
    (make-iterator ()
      (tagbody
       again
  