[cello-cvs] CVS cello/kt-opengl

[ktilton]

Update of /project/cello/cvsroot/cello/kt-opengl
In directory clnet:/tmp/cvs-serv1625/kt-opengl

Modified Files:
	kt-opengl.lisp 
Log Message:


--- /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp	2006/10/02 03:55:23	1.10
+++ /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp	2006/10/13 05:57:28	1.11
@@ -21,7 +21,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;;; $Id: kt-opengl.lisp,v 1.10 2006/10/02 03:55:23 ktilton Exp $
+;;; $Id: kt-opengl.lisp,v 1.11 2006/10/13 05:57:28 ktilton Exp $
 
 (pushnew :kt-opengl *features*)
 
@@ -48,8 +48,7 @@
 (defun kt-opengl-reset ()
   (loop for ec = (glgeterror)
         for n below 10
-        when (zerop ec) do (cells::trc "kt-opengl-reset sees zero error code")
-        (loop-finish)
+        when (zerop ec) do (loop-finish)
         do (cells::trc "kt-opengl-init sees error" ec)))
 
 (eval-when (:load-toplevel :execute)