anchor.diff:          :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
  +                                                     (eql (pathname-version pathname) :previous)
                                                        (ash 1 +attribute-directory+))
                         directory (read-file fat32 disk directory-cluster fat)
                         created T)
  
positive.code: 
  (defun file-name (pathname)
    "Take pathname and return file name."
    (unless (or (eql :wild (pathname-name pathname))
                (eql :wild (pathname-type pathname)))
      (if (pathname-type pathname)
          (concatenate 'string (pathname-name pathname) "." (pathname-type pathname))
          (pathname-name pathname))))
  
  (defun open-file-metadata (host pathname)
    (loop :with fat32 := (fat-structure host)
  
negative.code:                                        :area :wired :element-type '(unsigned-byte 8)
                                         :initial-element 0)))
              (fill-in-entry directory
                             (create-directory-entry directory "." "" NIL)
                             cluster-number)
              (fill-in-entry directory
                             (create-directory-entry directory ".." "" NIL)
                             cluster-n)
              ;; Write to disk
              (write-file (fat-structure host)
  