On Sat, Sep 12, 2009 at 6:59 PM, Kalyanov Dmitry kalyanov.dmitry@gmail.com wrote:

If I load cl-opengl, save the Lisp image (e.g., with sb-ext:save-lisp-and-die on SBCL) and then load the image and call (cl-glut:init), then cl-glut:: %glutInit doesn't get called because the variable cl-glut::*glut-initialized- p* is set to T (it retains its value when the image is saved). For me, this manifests in the following error:

...

freeglut  ERROR:  Function <glutSolidTeapot> called without first calling

'glutInit'.

If I set cl-glut::*glut-initialized-p* to NIL before saving the image, then cl-glut works after restarting the saved image.

This is already fixed for non-mac platforms in my tree (http://github.com/3b/cl-opengl) by limiting the *glut-initialized-p* stuff to threaded mac builds. (patch is at http://common-lisp.net/~loliveira/patches/cl-glut-init-state.diff if anyone wants to try it with the main repo)

(defun clear-initialized-p () (setf *glut-initialized-p* nil)) #+sbcl (pushnew 'clear-initialized-p sb-ext:*save-hooks*)

I suspect this is still a problem on threaded mac lisps though, can anyone verify it there and test the above fix (and/or a ccl version, it looks like the function should go on ccl:*save-exit-functions*)?

-- 3b