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