[cello-cvs] CVS cello/kt-opengl

[ktilton]

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))