anchor.diff:                         fat32
                          cluster)))))
   
  -(defun file-name (path)
  -  "Return file name"
  -  (unless (or (eql :wild (pathname-name path))
  -              (eql :wild (pathname-type path)))
  -    (if (pathname-type path)
  -        (concatenate 'string (pathname-name path) "." (pathname-type path))
  -        (pathname-name path))))
  -
  -(defun find-file (host pathname)
  -  (loop :with fat32 := (fat32-structure host)
  -        :with disk := (partition host)
  -        :with file-name := (file-name pathname)
  -        :with cluster-sector := (first-root-dir-sector fat32)
  -        :with cluster := (read-cluster fat32 disk cluster-sector)
  -        :for file :in (rest (pathname-directory pathname))
  -        :do (do-files (start) cluster
  -              (when (string= file (read-long-name cluster start))
  -                (let ((sector (first-sector-of-cluster fat32
  -                                                       (read-first-cluster cluster start))))
  -                  (setf cluster
  -                        (read-cluster fat32 disk
  -                                      sector)
  -                        cluster-sector sector))))
  -        :finally (do-files (start) cluster
  -                   (when (string= file-name (read-long-name cluster start))
  -                     (return-from find-file (values cluster cluster-sector start))))))
  -
   ;; WIP
   (defmethod open-using-host ((host fat32-host) pathname
                               &key direction element-type if-exists if-does-not-exist external-format)
  
positive.code: ;; Mount partition
  ;; (let* ((disk-name "FAT32")
  ;;        (disk (nth 3 (mezzano.supervisor:all-disks)))
  ;;        (fat32 (read-fat32-structure (read-sector disk 0)))
  ;;        (fat32-info (read-fat32-info-structure (read-sector disk (fat32-fat-info fat32))))
  ;;        (instance (make-instance 'fat32-host
  ;;                                 :name disk-name
  ;;                                 :partition disk
  ;;                                 :fat32-structure fat32
  ;;                                 :fat32-info fat32-info)))
  ;;   (setf (mezzano.file-system:find-host disk-name)
  ;;         instance))
  
  
negative.code:         (if start
              (progn (setf buffer (read-file (fat32-structure host)
                                             (partition host)
                                             (read-first-cluster cluster start)
                                             (fat host))
                           read-buffer-position (first-sector-of-cluster (fat32-structure host)
                                                                         (read-first-cluster cluster start))
                           read-buffer-size (read-size cluster start)))
  