anchor.diff:    (read-buffer-size stream))
   
   ;; WIP
  -;; TODO Change access-date , write-time and write-date.
  -;; FIXME Don't make smaler file size
  -;; Write don't work with multi clusters
  +;; TODO Change access-date.
   (defmethod close ((stream fat32-file-stream) &key abort)
  -  ;; (cond ((not abort)
  -  ;;        (write-cluster (partition (host stream))
  -  ;;                       (read-buffer-position stream)
  -  ;;                       (fat32-structure (host stream))
  -  ;;                       (read-buffer stream))
  -  ;;        (write-file-size stream))
  -  ;;       (t (error "Aborted close not suported")))
  +  (when (member (direction stream) '(:output :io))
  +    (cond ((not abort)
  +           (let ((host (host stream)))
  +             (write-file (read-buffer stream)
  +                         (partition host)
  +                         (fat32-structure host)
  +                         (fat host)
  +                         (read-buffer-position stream))))
  +          (t (error "Aborted close not suported"))))
     t)
   
   ;;; testing
  
positive.code:     (replace sequence (read-buffer stream) :start1 start :end1 end :start2 0 :end2 end2)
      end2))
  
  ;; WIP
  ;; TODO resize to files bigger than 1 cluster
  (defmethod sys.gray:stream-write-char ((stream fat32-file-character-stream) char)
    (assert (member (direction stream) '(:output :io)))
    (when (> (buffer-offset stream)
  
negative.code:                                            (partition host)
                                             (read-first-cluster cluster start)
                                             (fat host))
                           read-buffer-position (read-first-cluster cluster start)
                           read-buffer-size (read-size cluster start)))
              (ecase if-does-not-exist
                (:error (error 'simple-file-error
  