(bind-func glfw_init_and_create_fullscreen_compatibility_window
(lambda ()
(glfw_init)
;; (glfw_set_compatibility_profile)
(let ((window (glfw_create_fullscreen_window)))
(glfwShowWindow window)
(glfwMakeContextCurrent window)
(glfwSwapInterval 1)
(glfwSwapBuffers window)
window)))