(bind-func Widget_child_p (lambda (parent:Widget* child:Widget*) (or (equal (Widget_left_child parent) child) (equal (Widget_right_child parent) child))))