Permalink
Browse files

remove ONCE-ONLY from glu::with-projection-arrays

using alexandria:once-only broke glu::with-projection-arrays, which as
far as I can tell relied on the old once-only doing nothing, so just
remove it completely
  • Loading branch information...
1 parent 4edf342 commit fce030c16fc45a235b9800d995703d31b069cc83 @3b committed Dec 16, 2010
Showing with 8 additions and 9 deletions.
  1. +8 −9 glu/glu.lisp
View
@@ -204,15 +204,14 @@
;;; appropriate type to contain the modelview matrix, projection
;;; matrix, and viewport for calls to GLU projection functions.
(defmacro with-projection-arrays ((model proj viewport) &body body)
- (gl::once-only (model proj viewport)
- `(progn
- (assert (= (length ,model) 16))
- (assert (= (length ,proj) 16))
- (assert (= (length ,viewport) 4))
- (gl::with-opengl-arrays ((,model '%gl:double ,model)
- (,proj '%gl:double ,proj)
- (,viewport '%gl:int ,viewport))
- ,@body))))
+ `(progn
+ (assert (= (length ,model) 16))
+ (assert (= (length ,proj) 16))
+ (assert (= (length ,viewport) 4))
+ (gl::with-opengl-arrays ((,model '%gl:double ,model)
+ (,proj '%gl:double ,proj)
+ (,viewport '%gl:int ,viewport))
+ ,@body)))
;;; Map object coordinates to window coordinates. The MODELVIEW
;;; matrix, PROJECTION matrix, and VIEWPORT dimensions will be queried

0 comments on commit fce030c

Please sign in to comment.