From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 31 Oct 2009 19:59:01 +0000 (+0300)
Subject: Fix gtkglext:with-gl-context macro by wrapping body in progn inside unwind-protect
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=fa85ea058a2d5930698c96d00860f17327dc2eb8;p=cl-gtk2.git

Fix gtkglext:with-gl-context macro by wrapping body in progn inside unwind-protect
---

diff --git a/gtk-glext/gtkglext.lisp b/gtk-glext/gtkglext.lisp
index 682d5d4..f6b8434 100644
--- a/gtk-glext/gtkglext.lisp
+++ b/gtk-glext/gtkglext.lisp
@@ -453,7 +453,8 @@
              (,drawable (gtk-widget-gl-window ,w)))
          (if (and ,context ,drawable (gdk-gl-drawable-gl-begin ,drawable ,context))
              (unwind-protect
-                  ,@body
+                  (progn
+                    ,@body)
                (progn
                  (when ,swap-p
                    (when (gdk-gl-drawable-is-double-buffered ,drawable)