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)