anchor.diff:                (free-file-entry parent-dir dir-offset))
             (error (condition)
               ;; not able to finish, undo all the work by re-reading fat
  -            (read-fat disk fat32 fat)
  +            (read-fat disk ffs fat)
               ;; pass the error on
               (error condition)))
           ;; Write to disk
  -        (write-fat disk fat32 fat)
  -        (write-file fat32 disk parent-cluster fat parent-dir)))
  +        (write-fat disk ffs fat)
  +        (write-file ffs disk parent-cluster fat parent-dir)))
       (force-directory-only path)))
   
  -(defmethod expunge-directory-using-host ((host fat32-host) path &key)
  +(defmethod expunge-directory-using-host ((host fat-host) path &key)
     (declare (ignore host path))
     t)
   
  -(defmethod stream-truename ((stream fat32-file-stream))
  +(defmethod stream-truename ((stream fat-file-stream))
     (file-stream-pathname stream))
   
  -(defmethod close ((stream fat32-file-stream) &key abort)
  +(defmethod close ((stream fat-file-stream) &key abort)
     (let ((host (host stream))
           (file-length (file-length* stream)))
       (multiple-value-bind (parent-dir parent-cluster file-offset)
           (open-file-metadata host (file-stream-pathname stream))
         (cond ((not abort)
  -             (multiple-value-bind (time date) (get-fat32-time)
  +             (multiple-value-bind (time date) (get-fat-time)
                  (when (member (direction stream) '(:output :io))
                    (write-file (fat-structure host)
                                (partition host)
  
positive.code:                  (when (and (string/= name ".")
                              (string/= name "..")
                              (directory-p dir-array offset))
                     (let ((new-dir-array (read-file fat32 disk
                                                     (read-first-cluster dir-array offset)
                                                     fat)))
                       (setf result
                             (append
                              ;; check directory against rest of pathname
                              (match-in-directory
                               disk fat32 fat
                               new-dir-array
                               rest-of-dir-list
                               (make-pathname :directory (append start-of-dir
  
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)
  