anchor.diff:           do
              (setf (elt name idx) char)
              (incf idx)))
  -
  +    ;; Delete extra spaces from the right end
       (string-right-trim '(#\Space) name)))
   
   (defun write-short-name (directory offset name type name-length type-length)
  
positive.code:         (assert source-start (source-start) "Source file not found. ~s" source)
          (multiple-value-bind (dest-dir dest-cluster dest-start) (open-file-metadata host dest)
            (assert (not dest-start) (dest-start) "Destination file alredy exist. ~s" dest)
  
            (let ((dest-offset))
              (multiple-value-setq (dest-offset dest-dir)
                (create-directory-entry dest-dir
  
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
  