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

[cl-gtk2.git] / gtk-glext / gtkglext.lisp

diff --git a/gtk-glext/gtkglext.lisp b/gtk-glext/gtkglext.lisp
index 682d5d4..f6b8434 100644 (file)
--- 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)