anchor.diff:        (return-from make-wild-path-component-from-fragments))
   
       (if (find-if-not 'characterp result)
  -        (create-scanner
  -         (nconc (list :sequence :start-anchor) (coerce result 'list) (list :end-anchor))
  -         :multi-line-mode t)
  +        (let ((scanner (create-scanner
  +                        `(:sequence :start-anchor ,@(coerce result 'list) :end-anchor)
  +                        :multi-line-mode t)))
  +          (lambda (path)
  +            (scan scanner path)))
           (coerce result 'simple-string))))
   
   (defun make-wild-path-from-fragments (fragments)
  
positive.code: 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
  
negative.code:            (with-dir-ptr-for-fd (dir-ptr (get-fd-current-working-directory))
               (shcl/core/posix:do-directory-contents (file dir-ptr)
                 (when (and (not (or (equal file ".") (equal file "..")))
                            (funcall next file))
                   (if as-directory-p
                       (with-directory-or-nil (file)
                         (let ((rest (recurse-and-prefix file t)))
  