(gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
(asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
(ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT)) ;;non-standard name for asas
(as . ,(ly:make-pitch -1 5 FLAT))
(gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
(asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
(ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT)) ;;non-standard name for asas
(as . ,(ly:make-pitch -1 5 FLAT))