anchor.diff:                 :pathname path
                  :format-control "~S is a directory, couldn't delete"
                  :format-arguments (list path )))
  -      (remove-file parent-dir file-offset disk parent-cluster fat32 fat))))
  -
  -(defmethod delete-directory-using-host ((host fat32-host) path &key recursive)
  +      (remove-file parent-dir file-offset disk parent-cluster ffs fat))))
  +
  +(defmethod delete-directory-using-host ((host fat-host) path &key recursive)
     (let* ((disk (partition host))
  -         (fat32 (fat-structure host))
  +         (ffs (fat-structure host))
            (fat (fat host))
            (new-path (force-pathname-name path)))
       (labels ((%delete-directory (parent-dir dir-offset)
                  (let* ((dir-cluster (read-first-cluster parent-dir dir-offset))
  -                      (directory (read-file fat32 disk dir-cluster fat)))
  +                      (directory (read-file ffs disk dir-cluster fat)))
                    (when (next-file directory (* 2 32))
                      ;; directory not empty
                      (if recursive
  
positive.code:                                :fat-type-label (check-fat-type-label32 (map 'string #'code-char
                                                                              (subseq sector 82 90)))
                                 :boot-code (subseq sector 90 510))))
      (read-fat32-base fat32 sector)
      (assert (and (zerop (fat-%n-sectors16 fat32))
                   (not (zerop (fat-%n-sectors32 fat32)))))
      (check-bps (sys.int::ub16ref/le sector 510))
  
negative.code:                          :version NIL))
          pathname)))
  
  (defmethod probe-using-host ((host fat-host) pathname)
    (let ((new-pathname (force-pathname-name pathname)))
      (multiple-value-bind (directory directory-cluster offset)
          (open-file-metadata host new-pathname)
  