X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk-glext%2Fdemo.lisp;fp=gtk-glext%2Fdemo.lisp;h=91f878b7a83eb3f3ca4ef9efa86dafaede1e04d2;hb=4bbf2e9b27bbd8f64ff65566ca46d27902b30ae6;hp=d2c1fe7c8ca8d6b40eb7c649a331a3a8208dab38;hpb=e2d4bba2c20af44dd19fca3bdf3e74306effb95c;p=cl-gtk2.git

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)