As you probably know, the LSR site runs version 2.10.something.
However, most (!?) LSR snippets have been updated for version 2.11 and
are included
in the documentation for 2.11. If you look at the corresponding snippet at
http://lilypond.org/doc/v2.11/input/lsr/lilypond-snippets/Pitches#Pitches
I attach the snippet below, it is not working under 2.11.43
if someone can confirm it or take a look in the code,
thanks ole
#(define (naturalise-pitch p)
(let* ((o (ly:pitch-octave p))
(a (ly:pitch-alteration p))