X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=gtk%2Fgtk.builder.lisp;h=bcc06d5a70ff583fc74e74a376030c270d33063b;hb=8b6767cf4830672f2d929b66031f561857b9f1cd;hp=659d8af677cae5c7a8cc06d6dfee7105da0fcdc6;hpb=c7066267e3baedd05b2a394f5b2dbdf2246278c7;p=cl-gtk2.git

diff --git a/gtk/gtk.builder.lisp b/gtk/gtk.builder.lisp
index 659d8af..bcc06d5 100644
--- a/gtk/gtk.builder.lisp
+++ b/gtk/gtk.builder.lisp
@@ -101,8 +101,9 @@
 (defun builder-connect-signals-simple (builder handlers-list)
   (flet ((connect-func (builder object signal-name handler-name connect-object flags)
            (declare (ignore builder connect-object))
-           (awhen (find handler-name handlers-list :key 'first :test 'string=)
-      (g-signal-connect object signal-name (second it) :after (member :after flags)))))
+           (let ((handler (find handler-name handlers-list :key 'first :test 'string=)))
+             (when handler
+               (g-signal-connect object signal-name (second handler) :after (member :after flags))))))
     (builder-connect-signals-full builder #'connect-func)))
 
 (export 'builder-connect-signals-simple)