ly/drumpitch-init.ly

   1
   2 \pitchnames
   3 #(append (map (lambda (x) (cons (car x) (caddr x))) drum-pitch-names)
   4          (map (lambda (x) (cons (cadr x) (caddr x))) drum-pitch-names)
   5  )
   6
   7
   8 \version "1.9.1"