(defmethod compute-signal-function ((container container) signal function object args)
(declare (ignore signal))
(if (eq object :children)
(defmethod compute-signal-function ((container container) signal function object args)
(declare (ignore signal))
(if (eq object :children)