[lgtk-cvs] CVS update: lgtk/src/gtklisp.lisp

[Mario Mommer]

Update of /project/lgtk/cvsroot/lgtk/src
In directory common-lisp.net:/tmp/cvs-serv30673

Modified Files:
	gtklisp.lisp 
Log Message:
bug fix

Date: Thu Nov 25 23:11:17 2004
Author: mmommer

Index: lgtk/src/gtklisp.lisp
diff -u lgtk/src/gtklisp.lisp:1.8 lgtk/src/gtklisp.lisp:1.9
--- lgtk/src/gtklisp.lisp:1.8	Thu Nov 25 22:06:55 2004
+++ lgtk/src/gtklisp.lisp	Thu Nov 25 23:11:17 2004
@@ -91,14 +91,14 @@
 	  (gtk-aliens::|glade_xml_signal_connect_data|
 	   rw signal-name (c-fun-ptr gtk-standard-decoy) (id it)))
 
-    (if (eql signal gtkdestroy)
+    '(if (eql signal gtkdestroy)
 	(pushnew (meta it) (destroyers meta))
       (pushnew (meta it) (callbacks meta)))
 
     (gcconnect it wid)
 
     (debugf t "Tacked (glade) callback id ~A to widget ~a for ~s.~%"
-	    (id it) wid (marker signal))))
+	    (id it) wid signal-name)))
 
 (defun g-signal-connect-swapped
   (wid signal func &key data (flags :g-connect-none))