GDK:KEYVAL-NAME bombs...

Hi,

I'm running the October/2007 snapshot of CMUCL on a Linux machine with the
latest CLG from the CVS depository.

Running the following code to get a window:

(let ((w (make-instance 'gtk:window)))
  (glib:signal-connect
   w
   :key-press-event
   #'(lambda (kevent)
       (print (gdk:keyval-name (gdk:event-keyval kevent)))
       (finish-output))
  (gtk:widget-show w)))

Make the window the focused window, then, press any key in a
keyboard, and you'll get the following error:

Error in function UNIX::SIGABRT-HANDLER:  SIGABRT at #xB7F38410.
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [CONTINUE] Return from callback function
 1: [RE-INVOKE] Re-invoke callback function
 2: [DISCONNECT] Disconnect and exit signal handler
 3: [ABORT] Return to Top-Level.

Backtrace:
  0: (UNIX::SIGABRT-HANDLER #<#1=unused-arg>
                            #<#1#>
                            #.(SYSTEM:INT-SAP #x3FFFB4EC))
  1: (UNIX::SIGABRT-HANDLER 3
                            #<#1=unused-arg>
                            #<#1#>
                            #.(SYSTEM:INT-SAP #x3FFFB4EC))[:EXTERNAL]
  2: ("call_into_lisp+#x8C [#x8053890] /usr/local/cmucl/bin/lisp")
  3: ("funcall3+#x33 [#x8053463] /usr/local/cmucl/bin/lisp")
  4: ("interrupt_handle_now+#xE4 [#x8050584] /usr/local/cmucl/bin/lisp")
  5: ("Foreign function call land")
  6: ("abort+#x108 [#xB7DF68E8] /lib/libc.so.6")
  7: ("NIL+#xB7E2BCBB [#xB7E2BCBB] /lib/libc.so.6")
  8: ("NIL+#xB7E31A00 [#xB7E31A00] /lib/libc.so.6")
  9: ("cfree+#x89 [#xB7E336F9] /lib/libc.so.6")
 10: ("g_free+#x31 [#xB7BC1491] /usr/lib/libglib-2.0.so")
 11: (GDK:KEYVAL-NAME 97)
 12: (NIL #<GDK:KEY-PRESS-EVENT at 0x8166B70>)
 13: ("DEFMETHOD COMPUTE-SIGNAL-FUNCTION (WIDGET T T T T)"
      #<GTK:WINDOW at 0x8120188> #<GDK:KEY-PRESS-EVENT at 0x8166B70>)
 14: ("DEFMETHOD SIGNAL-CONNECT (GOBJECT T T)" #<GTK:WINDOW at 0x8120188>
      #<GDK:KEY-PRESS-EVENT at 0x8166B70>)
 15: (GLIB:INVOKE-CALLBACK 235
                           NIL
                           #<GTK:WINDOW at 0x8120188>
                           #<GDK:KEY-PRESS-EVENT at 0x8166B70>)
 16: (GLIB::INVOKE-SIGNAL-HANDLER 235
                                  #<unused-arg>
                                  #<GTK:WINDOW at 0x8120188>
                                  #<GDK:KEY-PRESS-EVENT at 0x8166B70>)
 17: (GLIB::CALLBACK-TRAMPOLINE
      #<Function GLIB::INVOKE-SIGNAL-HANDLER {594D5DC1}>
      235
      2
      #.(SYSTEM:INT-SAP #x3FFFC71C)
      ...)
 18: (GLIB::SIGNAL-HANDLER-MARSHAL 268431692 268431688)


I vaguely remember GDK:KEYVAL-NAME worked a couple of months
ago.  Could someone please look into this?

Best,

-cph

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/