(defun vformat-slot-data ()
  (loop repeat 1
        collect (list :a)))

(defun vformat-read-vertices (buffer type)
  (let ((map (vformat-slot-data)))
    (loop for i from 0 below 1
          do (loop for initarg in (list :a)
                   when (find initarg map :key #'first)
                   collect :a))))