(bind-func Texture_create (lambda () (let ((id:GLuint* (salloc))) (glGenTextures 1 id) (gl_print_error "Error creating Texture") (pref id 0))))