anchor.diff:        ;; FIXME: Handle all possible syscall errors
         (isys:enoent ()
           (ecase if-does-not-exist
  -          (:error (isys:syscall-error "Directory ~S does not exist" directory))
  +          (:error (isys:syscall-error "Directory ~S does not exist"
  +                                      directory))
             ((nil)  nil)))
         (isys:eacces ()
  -        (isys:syscall-error "Search permission is denied for ~S" directory)))))
  +        (isys:syscall-error "Search permission is denied for ~S"
  +                            directory)))))
    
   
  
positive.code:                  (:directory
                    (when (and (funcall test name-key kind)
                               (< depth maxdepth))
                      (ecase order
                        (:directory-first
                         (when (<= mindepth depth)
                           (funcall fn name-key kind))
                         (walkdir name depth parent))
                        (:depth-first
                         (walkdir name depth parent)
                         (when (<= mindepth depth)
                           (funcall fn name-key kind))))))
  
negative.code:                                     entry))))
  
  (defun walk-directory (directory fn &key (if-does-not-exist :error)
                         follow-symlinks (directories :before)
                         (mindepth 1) (maxdepth 65535)
                         (test (constantly t)) (key #'identity))
    "Recursively applies the function FN to all files within the
  