Fix warning for unused variable.

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

diff --git a/gtk-glext/demo.lisp b/gtk-glext/demo.lisp
index d2c1fe7..91f878b 100644 (file)
--- 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)