(bind-func FBO_create (lambda () (let ((fbo:FBO* (halloc)) (id:GLuint* (salloc))) (glGenFramebuffers 1 id) (gl_print_error "Error creating FBO") (tset! fbo 0 (pref id 0)) fbo)))