Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv9463 Modified Files: ogl-macros.lisp Log Message: Code cleanup. --- /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp 2006/08/28 21:45:28 1.8 +++ /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp 2006/10/01 12:30:01 1.9 @@ -24,9 +24,6 @@ (in-package :kt-opengl) -(eval-when (:compile-toplevel :load-toplevel :execute) - (export '(with-gl-translation))) - (defvar *stack-depth* (fgn-alloc :int 1 :ignore)) @@ -127,15 +124,6 @@ ,@body (gl-translatef (- ,dx)(- ,dy)(- ,dz)))))) - - -(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) - do (cells::trc "kt-opengl-init sees error" ec))) - (defun glec (&optional (id :anon) announce-success) (if (and (boundp '*gl-begun*) *gl-begun*) (progn (cells:trc nil "not checking error inside gl.begin" id))