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)