anchor.diff:                                         :area :wired :element-type '(unsigned-byte 8)
                                          :initial-element 0)))
               (fill-in-entry directory
  -                           (create-directory-entry directory "." "")
  +                           (create-directory-entry directory "." "" NIL)
                              cluster-number)
               (fill-in-entry directory
  -                           (create-directory-entry directory ".." "")
  +                           (create-directory-entry directory ".." "" NIL)
                              cluster-n)
               ;; Write to disk
               (write-file (fat-structure host)
  
positive.code:            :format-control "Pathname has a device component"))
    (let ((dir (pathname-directory pathname))
          (name (pathname-name pathname))
          (type (pathname-type pathname)))
      (with-output-to-string (s)
        (when (eql (first dir) :absolute)
          (write-char #\> s))
  
negative.code: 
            (let ((dest-offset (create-directory-entry dest-dir
                                                       (pathname-name dest)
                                                       (pathname-type dest)
                                                       (eql (pathname-version dest) :previous))))
              ;; copy meta data
              (replace dest-dir source-dir
                       :start1 (+ dest-offset 11)
  