anchor.diff:                                 :fat-type-label (check-fat-type-label32 (map 'string #'code-char
                                                                               (subseq sector 82 90)))
                                  :boot-code (subseq sector 90 510))))
  -    (read-fat-base fat32 sector)
  +    (read-fat32-base fat32 sector)
       (assert (and (zerop (fat-%n-sectors16 fat32))
                    (not (zerop (fat-%n-sectors32 fat32)))))
       (check-bps (sys.int::ub16ref/le sector 510))
  
positive.code:                                :volume-label (map 'string #'code-char (subseq sector 43 54))
                                 :fat-type-label (map 'string #'code-char (subseq sector 54 60))
                                 :boot-code (subseq sector 62 510))))
      (read-fat-base fat12 sector)
      (assert (or (not (zerop (fat-%n-sectors16 fat12)))
                  (not (zerop (fat-%n-sectors32 fat12)))))
      (check-bps (sys.int::ub16ref/le sector 510))
  
negative.code:                                :volume-label (map 'string #'code-char (subseq sector 43 54))
                                 :fat-type-label (map 'string #'code-char (subseq sector 54 60))
                                 :boot-code (subseq sector 62 510))))
      (read-fat32-base fat16 sector)
      (assert (or (not (zerop (fat-%n-sectors16 fat16)))
                  (not (zerop (fat-%n-sectors32 fat16)))))
      (check-bps (sys.int::ub16ref/le sector 510))
  