anchor.diff:  (defmethod rename-file-using-host ((host fat32-host) source dest)
     (error "Feature not implemented: ~a" 'rename-file-using-host))
   
  -;; WIP
   (defmethod file-write-date-using-host ((host fat32-host) path)
  -  (error "Feature not implemented: ~a" 'file-write-date-using-host))
  +  (multiple-value-bind (file cluster-sector metadata-offset) (find-file host path)
  +    (declare (ignore cluster-sector))
  +    (let ((time (sys.int::ub16ref/le file (+ metadata-offset 22)))
  +          (date (sys.int::ub16ref/le file (+ metadata-offset 24))))
  +      (encode-universal-time (ash (ldb (byte 5 0) time) 1)
  +                             (ldb (byte 6 5) time)
  +                             (ldb (byte 5 11) time)
  +                             (ldb (byte 5 0) date)
  +                             (ldb (byte 4 5) date)
  +                             (+ 1980 (ldb (byte 7 9) date))))))
   
   (defmethod delete-file-using-host ((host fat32-host) path &key)
     (let* ((disk (partition host))
            (fat32 (fat32-structure host)))
  -    (multiple-value-bind (cluster cluster-sector start) (find-file host path)
  -      (remove-file cluster
  -                   start
  -                   disk
  -                   cluster-sector
  -                   fat32))))
  +    (multiple-value-bind (directory cluster-sector start) (find-file host path)
  +      (remove-file directory start disk cluster-sector fat32))))
   
   (defmethod expunge-directory-using-host ((host fat32-host) path &key)
     (declare (ignore host path))
     t)
   
  -;; Sort name eql truename?
   (defmethod stream-truename ((stream fat32-file-stream))
     (file-stream-pathname stream))
   
  
positive.code:     end2))
  
  (defmethod sys.gray:stream-file-position ((stream fat32-file-stream) &optional (position-spec nil position-specp))
    (error "Feature not implemented: ~a" 'sys.gray:stream-file-position))
  
  (defmethod sys.gray:stream-file-length ((stream fat32-file-stream))
    (read-buffer-size stream))
  
  ;; WIP
  ;; TODO Change access-date.
  (defmethod close ((stream fat32-file-stream) &key abort)
    (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
  
negative.code: ;; Mount partition
  ;; (let* ((disk-name "FAT32")
  ;;        (disk (nth 3 (mezzano.supervisor:all-disks)))
  ;;        (fat32 (read-fat32-structure disk))
  ;;        (fat32-info (read-fat32-info-structure disk fat32))
  ;;        (fat (read-fat disk fat32))
  ;;        (instance (make-instance 'fat32-host
  ;;                                 :name disk-name
  