+ SCM p1 = left_ev->get_property ("pitch");
+ SCM p2 = right_ev->get_property ("pitch");
+ if ((enharmonic
+ ? (Pitch::is_smob (p1) && Pitch::is_smob (p2) &&
+ Pitch::unsmob (p1)->tone_pitch () == Pitch::unsmob (p2)->tone_pitch ())
+ : ly_is_equal (p1, p2))