Fix regression on freeglut platforms.
authorLuis Oliveira <loliveira@common-lisp.net>
local dateSat, 29 Aug 2009 13:39:49
dateSat, 29 Aug 2009 20:39:49
hash20090829203949-28748-02f9bbfcef95fbec5e0d30ad0ec8d3d903aa9a24.gz
Fix regression on freeglut platforms.

Ignore-this: 4aacad022ed099458c00b55cdab68a6a

Using freeglut, the MAIN-LOOP does exit at some point but
*GLUT-INITIALIZED-P* does not reflect that. So let's use
(GETP :INIT-STATE) again to check for such cases.
1 file(s) changed:
glut/init.lisp +25 -24