anchor.diff:    "If the partition contains a FAT file system, return the Volume ID otherwise NIL"
     ;; read first sector and check for FAT file system
     (let* ((sector-size (block-device-sector-size partition))
  -         (buffer (make-array sector-size)))
  +         (buffer (make-array sector-size :element-type '(unsigned-byte 8))))
       (block-device-read partition 0 1 buffer)
       (cond ((bpb-v7-p buffer)      ;; Check for version 7.0 BPB
              (sys.int::ub32ref/le buffer 67))
  
positive.code:         :with ffs := (fat-structure host)
          :with fat := (fat host)
          :with disk := (partition host)
          :with directory-cluster := (first-root-dir-cluster ffs)
          :with directory := (read-file ffs disk (first-root-dir-cluster ffs) fat)
          :for directory-name :in (rest (pathname-directory pathname))
          :do (do-files (start) directory
                  (setf directory-cluster (create-file host directory directory-cluster directory-name nil
  
negative.code:     (with-fat-host-locked (host)
        (remove-duplicates
         (match-in-directory disk ffs fat
                             (read-root-directory disk ffs fat)
                             (cdr dir-list)
                             pathname)
         :test #'equal))))
  