(bind-func VAO_create (lambda () (let ((vao:VAO* (halloc)) (id:GLuint* (salloc))) (glGenVertexArrays 1 id) (gl_print_error "Error creating VAO") (tset! vao 0 (pref id 0)) vao)))