(bind-func glfw_create_window (let ((window_title:i8* (zalloc 128))) (lambda (width height) (sprintf window_title "Extempore OpenGL Window") (glfwCreateWindow width height window_title null null))))