(filter-map (lambda (entry)
(let* ((class (ly:camel-case->lisp-identifier (car entry)))
(classes (ly:make-event-class class)))
(filter-map (lambda (entry)
(let* ((class (ly:camel-case->lisp-identifier (car entry)))
(classes (ly:make-event-class class)))