anchor.diff:                                           (fat host))
           :for directory :in (rest (pathname-directory pathname))
           :do (do-files (start) cluster-data
  +                      (error 'simple-file-error
  +                             :pathname pathname
  +                             :format-control "Directory ~A not found. ~S"
  +                             :format-arguments (list directory pathname))
                 (when (string= directory (read-file-name cluster-data start))
                   (setf cluster-sector (first-sector-of-cluster fat32 (read-first-cluster cluster-data start))
                         cluster-data (read-file fat32
  
positive.code:   (let ((cluster-data (find-file host pathname)))
      (let ((stack '())
            (path (unparse-pathname-directory pathname host)))
        (do-files
            (file) cluster-data
          (push
           (parse-simple-file-path host
                                   (format nil
  
negative.code:          (fat32 (fat32-structure host))
           (fat (fat host)))
      (multiple-value-bind (directory cluster-sector start) (find-file host path)
        (assert start (start) "File/directory not found. ~s" path)
        (remove-file directory start disk cluster-sector fat32 fat))))
  
  (defmethod expunge-directory-using-host ((host fat32-host) path &key)
  