[cells-cvs] CVS update: cell-cultures/cl-opengl/cl-opengl.lisp cell-cultures/cl-opengl/gl-functions.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cl-opengl
In directory common-lisp.net:/tmp/cvs-serv5472/cl-opengl

Modified Files:
	cl-opengl.lisp gl-functions.lisp 
Log Message:

Date: Sun Jul  4 11:59:45 2004
Author: ktilton

Index: cell-cultures/cl-opengl/cl-opengl.lisp
diff -u cell-cultures/cl-opengl/cl-opengl.lisp:1.1 cell-cultures/cl-opengl/cl-opengl.lisp:1.2
--- cell-cultures/cl-opengl/cl-opengl.lisp:1.1	Sat Jun 26 11:38:40 2004
+++ cell-cultures/cl-opengl/cl-opengl.lisp	Sun Jul  4 11:59:45 2004
@@ -27,7 +27,8 @@
 (defpackage #:cl-opengl
   (:nicknames #:ogl)
   (:use #:common-lisp #:uffi #:ffx)
-  (:export #:glut-get-window 
+  (:export #:*ogl-listing-p*
+    #:glut-get-window 
     #:glut-set-window 
     #:glut-post-redisplay
     #:with-matrix


Index: cell-cultures/cl-opengl/gl-functions.lisp
diff -u cell-cultures/cl-opengl/gl-functions.lisp:1.1 cell-cultures/cl-opengl/gl-functions.lisp:1.2
--- cell-cultures/cl-opengl/gl-functions.lisp:1.1	Sat Jun 26 11:38:41 2004
+++ cell-cultures/cl-opengl/gl-functions.lisp	Sun Jul  4 11:59:45 2004
@@ -22,7 +22,7 @@
 
 (in-package #:cl-opengl)
 
-
+(defparameter *ogl-listing-p* nil)
 (defun-ogl :void "open-gl" "glFlush" ())