[cello-cvs] CVS cello/kt-opengl

ktilton ktilton at common-lisp.net
Mon Jun 16 12:39:27 UTC 2008


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

Modified Files:
	ogl-macros.lisp 
Log Message:
nothing special

--- /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp	2008/04/11 09:23:07	1.12
+++ /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp	2008/06/16 12:39:26	1.13
@@ -115,13 +115,8 @@
       (gl-end))
     (glec :with-gl-begun-exit)))
 
-(defmacro with-gensyms ((&rest syms) &body body)
-  `(let ,(loop for sym in syms
-                       collecting `(,sym (gensym)))
-     , at body))
-
 (defmacro with-gl-translation ((dxf dyf &optional (dzf 0)) &body body)
-  (with-gensyms (dx dy dz)
+  (let ((dx (gensym))(dy (gensym))(dz (gensym)))
     `(let ((,dx ,dxf)(,dy ,dyf)(,dz ,dzf))
        (gl-translatef ,dx ,dy ,dz)
        (prog1




More information about the Cello-cvs mailing list