anchor.diff:        (setf i 0
               r j))))
   
  -;; WIP
  +;; TODO Make proper function for generating short names.
   (defun create-file (host file cluster-n pathname-name pathname-type attributes)
     "Create file/directory"
     (let* ((name (concatenate 'string pathname-name "." pathname-type))
  
positive.code:     (setf (aref directory i) #xE5)))
  
  (defun next-space (directory offset)
    (do ((i offset (+ 32 i)))
        ((<= (length directory) i) nil)
      (let ((first-byte (aref directory i)))
  
negative.code:         :finally (return sum)))
  
  (defun next-file (directory offset)
    "Return offset of next file/directory"
    (do ((i offset (+ 32 i)))
        ((<= (length directory) i) nil)
      (let ((first-byte (aref directory i)))
        (when (zerop first-byte)
          (return nil))
        (unless (= #xE5 first-byte)
          (unless (= #x0F (aref directory (+ 11 i)))
            (return i))))))
  