+
+LY_DEFINE (ly_event_set_property, "ly:event-set-property!",
+ 3, 0, 0, (SCM ev, SCM sym, SCM val),
+ "Set property @var{sym} in event @var{ev} to @var{val}."){
+ Stream_event *sc = unsmob_stream_event (ev);
+ SCM_ASSERT_TYPE (sc, ev, SCM_ARG1, __FUNCTION__, "event");
+ return ly_prob_set_property_x (ev, sym, val);
+}