anchor.diff:                               (buffer-position stream)
                                (fat host)
                                (buffer stream))
  -                 (setf (read-write-time directory offset) time
  -                       (read-write-date directory offset) date
  -                       (read-file-length directory offset) file-length))
  -               (setf (read-last-access-date directory offset) date))
  +                 (setf (read-write-time parent-dir file-offset) time
  +                       (read-write-date parent-dir file-offset) date
  +                       (read-file-length parent-dir file-offset) file-length))
  +               (setf (read-last-access-date parent-dir file-offset) date))
                ;; Write to disk new metadata
  -             (write-file (fat-structure host) (partition host) cluster-n (fat host) directory))))
  +             (write-file (fat-structure host) (partition host) parent-cluster (fat host) parent-dir))))
           ;; TODO Implement abort-action :delete
           (t (error "Aborted close not suported")))
     t)
  
positive.code:   (let* ((disk (partition host))
           (fat32 (fat-structure host))
           (fat (fat host)))
      (multiple-value-bind (directory cluster-n start) (find-file host path)
        (assert start (start) "File/directory not found. ~s" path)
        (remove-file directory start disk cluster-n fat32 fat))))
  
  (defmethod expunge-directory-using-host ((host fat32-host) path &key)
    (declare (ignore host path))
  
negative.code:   (if (string= (namestring source)
                 (namestring dest))
        t
        (multiple-value-bind (source-dir source-cluster source-start) (open-file-metadata host source)
          (assert source-start (source-start) "Source file not found. ~s" source)
          (multiple-value-bind (dest-dir dest-cluster dest-start) (open-file-metadata host dest)
            (assert (not dest-start) (dest-start) "Destination file alredy exist. ~s" dest)
            (let ((fat32 (fat-structure host))
                  (disk (partition host))
  