anchor.diff:          (path (directory-namestring pathname)))
       (do-files (block offset) disk superblock bgdt inode-n t
         (let* ((file (read-linked-directory-entry block offset))
  -             (type (linked-directory-entry-file-type file)))
  -        (unless (= +unknown-type+ type)
  -          (push (parse-simple-file-path host
  -                                        (format nil
  -                                                (if (= +directory-type+ type)
  -                                                    "~a~a>"
  -                                                    "~a~a")
  -                                                path
  -                                                (linked-directory-entry-name file)))
  -                stack))))
  +             (directory-p (if (logbitp +incompat-filetype+ (superblock-feature-incompat superblock))
  +                              (= +directory-type+ (linked-directory-entry-file-type file))
  +                              (= +inode-directory+ (inode-mode (read-inode disk superblock bgdt inode-n))))))
  +        (push (parse-simple-file-path host
  +                                      (format nil
  +                                              (if directory-p
  +                                                  "~a~a>"
  +                                                  "~a~a")
  +                                              path
  +                                              (linked-directory-entry-name file)))
  +              stack)))
       (return-from directory-using-host stack)))
   
   ;; (defmethod ensure-directories-exist-using-host ((host ext-host) pathname &key verbose))
  
positive.code: (defconstant +ro-compat-replica+ 11)
  (defconstant +ro-compat-readonly+ 12)
  (defconstant +ro-compat-project+ 13)
  
  ;; Inode flags
  (defconstant +sync-flag+ 3 "All writes to the file must be synchronous")
  
negative.code:   (defun check-feature-incompat (feature-incompat)
      (when (logbitp +incompat-recover+ feature-incompat)
        (error "Filesystem needs recovery"))
      (iter (for feature :in not-implemented)
            (when (logbitp feature feature-incompat)
              (collect feature :into result))
  