anchor.diff:          (error 'simple-file-error
                  :pathname pathname
                  :format-control "Cannot open directories for output."))
  -      (let ((fat32 (fat-structure host))
  +      (let ((ffs (fat-structure host))
               (fat (fat host))
               (disk (partition host))
               (createdp nil)
  
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-fat32-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:                                             :defaults pathname))
                              ;; check directory against :wild-inferiors
                              (match-in-directory
                               disk ffs fat
                               new-dir-array
                               dir-list
                               (make-pathname :directory (append start-of-dir
  