anchor.diff:                 (let* ((namestring (namestring pathname)))
                    (loop :for i from (- (length namestring) 2) :downto 0
                          :when (char= #\> (char namestring i))
  -                       :do (multiple-value-bind (cluster-data cluster-sector)
  +                       :do (multiple-value-bind (file-data cluster-n)
                                  (find-file host (pathname (subseq namestring 0 (1+ i))))
                                (let ((cluster-number
                                        (if (file-name pathname)
                                            (first-sector-of-cluster (fat32-structure host)
  -                                                                  (create-file host cluster-data cluster-sector
  +                                                                  (create-file host file-data cluster-n
                                                                                  (pathname-name pathname)
                                                                                  (pathname-type pathname)
                                                                                  (ash 1 +attribute-archive+)))
                                            (first-sector-of-cluster (fat32-structure host)
  -                                                                  (create-file host cluster-data cluster-sector
  +                                                                  (create-file host file-data cluster-n
                                                                                  (subseq namestring
                                                                                          (1+ i)
                                                                                          (1- (length namestring)))
  
positive.code: (defmethod close ((stream fat32-file-stream) &key abort)
    (cond ((not abort)
           (when (member (direction stream) '(:output :io))
             (write-file (fat32-structure (host stream))
                         (partition (host stream))
                         (read-buffer-position stream)
                         (fat (host stream))
                         (read-buffer stream))
             (write-file-size stream)))
          (t (error "Aborted close not suported")))
    t)
  
negative.code:           (read-buffer-size 0)
            (created-file nil)
            (abort-action nil))
        (multiple-value-bind (file-data cluster-n start) (find-file host pathname)
          (declare (ignore cluster-n))
          (if start
              (setf buffer (read-file (fat32-structure host)
                                      (partition host)
                                      (read-first-cluster file-data start)
                                      (fat host))
                    read-buffer-position (read-first-cluster file-data start)
                    read-buffer-size (read-size file-data start))
              (ecase if-does-not-exist
                (:error (error 'simple-file-error
                               :pathname pathname
  