anchor.diff:                      (ecase directories
                         (:before
                          (when (<= mindepth depth)
  -                         (funcall fn name-key kind))
  +                         (callfn name-key kind))
                          (walkdir name depth parent))
                         (:after
                          (walkdir name depth parent)
                          (when (<= mindepth depth)
  -                         (funcall fn name-key kind))))))
  +                         (callfn name-key kind))))))
                    (t (when (and (funcall test name-key kind)
                                  (<= mindepth depth))
  -                      (funcall fn name-key kind)))))
  +                      (callfn name-key kind)))))
                (decf depth))
              (walkdir (name depth parent)
                (mapdir (lambda (dir)
  
positive.code:                              (if (plusp depth)
                                   (cons (file-path-file name) parent)
                                   parent)))
                       name)))
      (handler-case
          (let* ((directory (file-path directory))
                 (ns (file-path-namestring directory))
  
negative.code:                     (path-components
                       (revappend parent (file-path-components name)))
                      (path (make-file-path :components path-components))
                      (name-key (funcall key path)))
                 (case kind
                   (:directory
                    (when (and (funcall test name-key kind)
  