[CM] sharps & flats from CM key

[Heinrich Taube]

i thought this is what you would do but the accidentals its choosing  
are wrong:


(with-fomus ("test.ly" :keysig "emaj")
   (loop for t from 0 to 16
         do
         (send "fms:note" t :dur 1
               :pitch (between 48 73) )))