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:                        i next)))
               ;; Write to disk
               (write-fat disk fat32 fat)
               (write-cluster disk
                              sector
                              fat32
                              directory))
      ;; Remove rest of file.
      (setf (aref directory i) #xE5)))
  
  
negative.code:   (error "Feature not implemented: ~a" 'rename-file-using-host))
  
  (defmethod file-write-date-using-host ((host fat32-host) path)
    (multiple-value-bind (file cluster-n metadata-offset) (find-file host path)
      (declare (ignore cluster-n))
      (assert metadata-offset (metadata-offset) "File not found. ~s" path)
      (let ((time (sys.int::ub16ref/le file (+ metadata-offset 22)))
            (date (sys.int::ub16ref/le file (+ metadata-offset 24))))
  