[cello-cvs] CVS cello/kt-opengl

[fgoenninger]

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 @@
            , at 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))