(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))
(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))