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