anchor.diff:              r j))))
   
   ;; WIP
  -(defun create-file (host file cluster-sector pathname-name pathname-type attributes)
  +(defun create-file (host file cluster-n pathname-name pathname-type attributes)
     "Create file/directory"
     (let* ((name (concatenate 'string pathname-name "." pathname-type))
            (short-name (make-string 11 :initial-element #\Space))
  
positive.code:           (read-buffer-size 0)
            (created-file nil)
            (abort-action nil))
        (multiple-value-bind (cluster-data cluster-sector start) (find-file host pathname)
          (declare (ignore cluster-sector))
          (if start
              (setf buffer (read-file (fat32-structure host)
                                      (partition host)
                                      (read-first-cluster cluster-data start)
                                      (fat host))
                    read-buffer-position (read-first-cluster cluster-data start)
                    read-buffer-size (read-size cluster-data start))
              (ecase if-does-not-exist
                (:error (error 'simple-file-error
                               :pathname pathname
  
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))))
  