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