anchor.diff:                           :format-control "File ~A does not exist."
                            :format-arguments (list pathname)))
                    (:create
  -                  (multiple-value-setq (buffer-position dir-array file-offset)
  +                  (multiple-value-setq (first-cluster dir-array file-offset)
                       (create-file host dir-array dir-cluster (pathname-name pathname) (pathname-type pathname) nil (ash 1 +attribute-archive+)))
                     (setf buffer (make-array `(,(bytes-per-cluster ffs)) :element-type '(unsigned-byte 8))
                           block-n 0
  
positive.code:                               :dirty-bit dirty-bit
                                :block-n block-n
                                :buffer buffer
                                :buffer-position buffer-position
                                :position file-position
                                :length file-length
                                :abort-action abort-action
  
negative.code:                               :dirty-bit dirty-bit
                                :block-n block-n
                                :buffer buffer
                                :first-cluster first-cluster
                                :position file-position
                                :length file-length
                                :abort-action abort-action))
  