(bind-func VAO_delete (lambda (vao:VAO*) (let ((id:GLuint* (salloc))) (pset! id 0 (VAO_id vao)) (glDeleteVertexArrays 1 id) (gl_print_error "Error deleting VAO") (free vao))))