anchor.diff:                                      (partition host)
                                       (read-first-cluster file-data start)
                                       (fat host))
  -                  read-buffer-position (read-first-cluster file-data start)
  -                  read-buffer-size (read-file-size file-data start))
  +                  buffer-position (read-first-cluster file-data start)
  +                  buffer-size (read-file-size file-data start))
               (ecase if-does-not-exist
                 (:error (error 'simple-file-error
                                :pathname pathname
                                :format-control "File ~A does not exist. ~S"
                                :format-arguments (list pathname (file-name pathname))))
  -              ;; TODO Implement abort-action :delete
                 (:create (setf created-file t
                                abort-action :delete)
                  (multiple-value-bind (pathname-name pathname-type attributes paret-path) (sub-path pathname)
  
positive.code:       (setf i 0
              r j))))
  
  ;; WIP
  (defun create-file (host file cluster-n pathname-name pathname-type attributes)
    "Create file/directory"
    (let* ((name (concatenate 'string pathname-name "." pathname-type))
  
negative.code:         (root-dir-sectors))))
  
  (defun total-clusters (fat32)
    (floor (/ (data-sectors fat32)
              (fat32-sectors-per-cluster fat32))))
  
  (defun first-data-sector (fat32)
    (+ (fat32-reserved-sector-count fat32)
  