Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv31340/kt-opengl Modified Files: ogl-macros.lisp Log Message: --- /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp 2006/05/27 06:01:39 1.1 +++ /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp 2006/06/11 13:32:25 1.2 @@ -104,7 +104,7 @@ (defvar *gl-stop*) (defmacro with-gl-begun ((what) &body body) `(progn - (when *gl-begun* + (when (boundp '*gl-begun*) (setf *gl-stop* t) (break ":nestedbegin")) (let ((*gl-begun* t))