anchor.diff:     (%volume-id :initarg :volume-id :accessor fat32-%volume-id :type (unsigned-byte 32))
      (%volume-label :initarg :volume-label :accessor fat32-%volume-label :type string)
      (%fat-type-label :initarg :fat-type-label :accessor fat32-%fat-type-label :type string)
  -   (%boot-code :initarg :boot-code :accessor fat32-%boot-code)))
  +   (%boot-code :initarg :boot-code :accessor fat32-%boot-code)
  +   (%fat-dirty-bits :initarg :fat-dirty-bits :accessor fat32-%fat-dirty-bits)))
   
   (defun check-fat-type-label32 (fat-type-label)
     (if (string= "FAT32   " fat-type-label)
  
positive.code:                            (create-directory-entry new-dir ".." "" NIL 0)
                             cluster-n)
              ;; Write to disk
              (write-file (fat-structure host)
                          (partition host)
                          cluster-number
                          (fat host) new-dir)))
          ;; Write parent directory to disk
          (write-file (fat-structure host) (partition host) cluster-n (fat host) directory)
          ;; Write fat
          (write-fat (partition host) (fat-structure host) (fat host))
          ;; Return cluster-number
          cluster-number))))
  
  
negative.code:   (do ((cluster-n (read-first-cluster directory start)))
        ((>= cluster-n (last-cluster-value fat32)))
      (let ((next (aref fat cluster-n)))
        (set-fat32 fat32 fat cluster-n 0)
        (setf cluster-n next)))
    ;; mark directory entry (or entries) as free
    (free-file-entry directory start)
    ;; Write to disk
  