(ly:pitch? ly:pitch? ly:pitch? ly:pitch? ly:pitch?)
(make-relative (p1 p2 p3 p4 p5) (make-event-chord (list p1 p2 p3 p4 p5))
#{
(ly:pitch? ly:pitch? ly:pitch? ly:pitch? ly:pitch?)
(make-relative (p1 p2 p3 p4 p5) (make-event-chord (list p1 p2 p3 p4 p5))
#{