Fix WITH-PUSHED-MATRIX to handle multiple return values properly.
Sun Jul 6 13:36:29 PDT 2008 Luis Oliveira <loliveira@common-lisp.net>
* Fix WITH-PUSHED-MATRIX to handle multiple return values properly.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-opengl/gl/opengl.lisp new-cl-opengl/gl/opengl.lisp
--- old-cl-opengl/gl/opengl.lisp 2014-04-18 02:54:21.000000000 -0700
+++ new-cl-opengl/gl/opengl.lisp 2014-04-18 02:54:22.000000000 -0700
@@ -426,9 +426,10 @@
%gl:pop-matrix)
(defmacro with-pushed-matrix (&body body)
- `(prog2 (push-matrix)
- (progn ,@body)
- (pop-matrix)))
+ `(progn
+ (push-matrix)
+ (multiple-value-prog1 (progn ,@body)
+ (pop-matrix))))
;;;
;;; 2.11.4 Generating Texture Coordinates