[cello-cvs] CVS cello/kt-opengl

[fgoenninger]

Update of /project/cello/cvsroot/cello/kt-opengl
In directory clnet:/tmp/cvs-serv14796

Modified Files:
	kt-opengl.lisp 
Log Message:
Code cleanup.

--- /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp	2006/10/01 12:29:44	1.7
+++ /project/cello/cvsroot/cello/kt-opengl/kt-opengl.lisp	2006/10/01 13:03:32	1.8
@@ -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.7 2006/10/01 12:29:44 fgoenninger Exp $
+;;; $Id: kt-opengl.lisp,v 1.8 2006/10/01 13:03:32 fgoenninger Exp $
 
 (pushnew :kt-opengl *features*)
 
@@ -127,25 +127,3 @@
         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 gl-boolean-test (value)
-  #+allegro (not (eql value #\null))
-  #-allegro (not (zerop value)))
-
-(defun dump-lists (min max)
-  (loop with start
-        and end
-        for lx from min to max
-        when (let ((is (gl-is-list lx)))
-               (when (gl-boolean-test is) 
-                 (print (list "dl test" lx is (char-code is))))
-               (gl-boolean-test is))
-        do (if start
-               (if end
-                   (if (eql lx (1+ end))
-                       (setf end lx)
-                     (print `(gl ,start to ,end)))
-                 (if (eql lx (1+ start))
-                     (setf end lx)
-                   (print `(gl ,start))))
-             (setf start lx))))