anchor.diff:                                     abort-action :delete)
                                (error 'simple-file-error
                                       :pathname pathname
  -                                    :format-control "File ~A does not exist. ~S"
  +                                    :format-control "Directory for ~A does not exist. ~S"
                                       :format-arguments (list pathname (file-name pathname)))))))))
         (when (and (not created-file-p) (member direction '(:output :io)))
           (ecase if-exists
  
positive.code:                            (create-directory-entry new-dir ".." "" NIL 0)
                             cluster-n)
              ;; Write to disk
              (write-file (fat-structure host)
                          (partition host)
                          cluster-number
                          (fat host) new-dir)))
          ;; Write parent directory to disk
          (write-file (fat-structure host) (partition host) cluster-n (fat host) directory)
          ;; Write fat
          (write-fat (partition host) (fat-structure host) (fat host))
          ;; Return cluster-number
          cluster-number))))
  
  
negative.code:    (%volume-id :initarg :volume-id :accessor fat32-%volume-id :type (unsigned-byte 32))
     (%volume-label :initarg :volume-label :accessor fat32-%volume-label :type string)
     (%fat-type-label :initarg :fat-type-label :accessor fat32-%fat-type-label :type string)
     (%boot-code :initarg :boot-code :accessor fat32-%boot-code)
     (%fat-dirty-bits :initarg :fat-dirty-bits :accessor fat32-%fat-dirty-bits)))
  
  (defun check-fat-type-label32 (fat-type-label)
    (if (string= "FAT32   " fat-type-label)
  