anchor.diff:          :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)
  +        :with directory-cluster := NIL
  +        :with directory := (read-root-directory disk 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
  
positive.code:                           :offset byte-offset))))
  
  (defun write-directory (ffs disk start-cluster fat array)
    (write-file ffs disk start-cluster fat array (length array)))
  
  (defun read-attributes (directory offset)
    (aref directory (+ offset 11)))
  
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))))
  