anchor.diff:                              :buffer buffer
                               :buffer-position buffer-position
                               :position file-position
  -                            :length file-length))
  +                            :length file-length
  +                            :abort-action abort-action))
               (t (error "Unsupported element-type ~S." element-type))))))
   
   (defmethod probe-using-host ((host fat32-host) pathname)
  
positive.code:                  (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) parent-cluster (fat host) parent-dir))))
          ;; TODO Implement abort-action :delete
          (t (error "Aborted close not suported")))
    t)
  
negative.code:                             :buffer buffer
                              :buffer-position buffer-position
                              :position file-position
                              :length file-length
                              :abort-action abort-action))
              ((and (subtypep element-type '(unsigned-byte 8))
                    (subtypep '(unsigned-byte 8) element-type))
               (assert (eql external-format :default) (external-format))
  