(dolist (signal-definition (get-all initargs :signal))
(apply #'signal-connect object signal-definition)))
(defmethod initialize-instance :around ((object %object) &rest initargs)
(declare (ignore initargs))
(call-next-method)
(dolist (signal-definition (get-all initargs :signal))
(apply #'signal-connect object signal-definition)))
(defmethod initialize-instance :around ((object %object) &rest initargs)
(declare (ignore initargs))
(call-next-method)