(no commit message)

[gacela.git] / gacela.lisp

diff --git a/gacela.lisp b/gacela.lisp
index df3fe3608361b19b128fbf8c3cd313271e3f137d..5cb515a136798f745a03e9ba27dcabab65cf0556 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -99,11 +99,12 @@
   t)
 
 (defmacro progn-textures (&body code)
-  `(progn
+  `(let (values)
      (init-video-mode)
      (glEnable GL_TEXTURE_2D)
-     ,@code
-     (glDisable GL_TEXTURE_2D)))
+     (setq values (multiple-value-list (progn ,@code)))
+     (glDisable GL_TEXTURE_2D)
+     (apply #'values values)))
 
 (defun init-textures ()
   (init-video-mode)