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