anchor.diff:         do
            (setf (elt name idx) char)
            (incf idx))
  -
       ;; Copy chars for 3 part, if there is any
       (when (/= (aref directory (+ 8 offset)) (char-code #\Space))
         (setf (elt name idx) #\.)
  
positive.code:                      (read-file-length directory offset) 0)))
          ;; fill in directory entry for new file
          (fill-in-entry directory offset cluster-number)
  
          (when (directory-p directory offset)
            ;; create new directory with "." and ".." entries
            ;; don't need second result of create-directory-entry because
  
negative.code:                      :start1 (+ dest-offset 11)
                       :start2 (+ source-start 11)
                       :end2 (+ source-start 32))
              (cond ((equalp (pathname-directory source)
                             (pathname-directory dest))
                     ;; source and destination are the same directory, only update and write the
  