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:    (host :initarg :host :reader host)
     (if-exists :initarg :if-exists :reader if-exists)
     ;; File position where the buffer data starts.
     (buffer-position :initarg :buffer-position :accessor buffer-position)
     (abort-action :initarg :abort-action :accessor abort-action)))
  
  (defclass fat-file-character-stream (fat-file-stream
  
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
  