(defmethod shared-initialize :after ((l log-category) slot-names &key ancestors &allow-other-keys) (declare (ignore slot-names)) (dolist (anc ancestors) (pushnew l (childer anc) :test (lambda (a b) (eql (name a) (name b))))))