From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Fri, 30 Aug 2013 21:33:07 +0000 (+0200)
Subject: Fix warning for unused variable.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4bbf2e9b27bbd8f64ff65566ca46d27902b30ae6;p=cl-gtk2.git

Fix warning for unused variable.
---

diff --git a/gtk-glext/demo.lisp b/gtk-glext/demo.lisp
index d2c1fe7..91f878b 100644
--- a/gtk-glext/demo.lisp
+++ b/gtk-glext/demo.lisp
@@ -73,6 +73,7 @@
       (container-add window area)
       (connect-signal window "realize"
                       (lambda (w)
+                        (declare (ignore w))
                         (pushnew :key-press-mask (gdk:gdk-window-events (widget-window window)))))
       (connect-signal window "key-press-event"
                       (lambda (w e)