anchor.diff:  (defmethod close ((stream fat32-file-stream) &key abort)
     (cond ((not abort)
            (let* ((host (host stream))
  -                (file-length (read-buffer-size stream)))
  +                (file-size (read-buffer-size stream)))
              (multiple-value-bind (directory cluster-n offset)
                  (find-file host (file-stream-pathname stream))
                (multiple-value-bind (time date) (get-fat32-time)
  
positive.code:       (replace temp-buf array :start2 (* n-cluster spc sector-size))
        (mezzano.supervisor:disk-write disk (first-sector-of-cluster fat32 cluster-n) spc temp-buf))))
  
  (defun read-first-cluster (directory offset)
    (logior (ash (sys.int::ub16ref/le directory (+ 20 offset)) 16)
            (ash (sys.int::ub16ref/le directory (+ 26 offset)) 0)))
  
  (defun read-file-size (directory offset)
    (sys.int::ub32ref/le directory (+ 28 offset)))
  
  (defun checksum (array offset)
    "Return checksum of sort name"
  
negative.code:         ;; Write to disk
          (write-file (fat32-structure host) (partition host) cluster-n (fat host) file)
          ;; Update fat
          (setf (sys.int::ub32ref/le (fat host) (* cluster-number 4)) #x0FFFFFFF)
          (write-fat (partition host) (fat32-structure host) (fat host))
          ;; Return cluster-number
          cluster-number))))
  
  ;;; Host integration
  
  