(if (pair? e)
(let* ((musics (map make-prop-set
`(((symbol . clefGlyph) (value . ,(cadr e)))
(if (pair? e)
(let* ((musics (map make-prop-set
`(((symbol . clefGlyph) (value . ,(cadr e)))
(value . ,(+ oct
(caddr e)
(cdr (assoc (cadr e) c0-pitch-alist)))))
((symbol . clefPosition) (value . ,(caddr e)))
((symbol . clefOctavation) (value . ,(- oct))))))
(value . ,(+ oct
(caddr e)
(cdr (assoc (cadr e) c0-pitch-alist)))))
((symbol . clefPosition) (value . ,(caddr e)))
((symbol . clefOctavation) (value . ,(- oct))))))