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