(set! pitchnames alist)
(ly:parser-set-note-names parser alist))
(ly:warning (_ "Could not find language `~a'. Ignoring.") str))))
(set! pitchnames alist)
(ly:parser-set-note-names parser alist))
(ly:warning (_ "Could not find language `~a'. Ignoring.") str))))