(bind-func gl_print_driver_info
(lambda ()
(println "--------------------------------------------------")
(println "Extempore OpenGL driver info")
(println "--------------------------------------------------")
(printf " Vendor: %s\n" (glGetString GL_VENDOR))
(printf "Renderer: %s\n" (glGetString GL_RENDERER))
(printf " Version: %s\n" (glGetString GL_VERSION))
(println "--------------------------------------------------")
void))