New:
additional keyword :map in TEXT-TO-PITCH, LETTER-TO-INTEGER and INTEGER-TO-LETTER.
---------------------------------------------------
TEXT-TO-PITCH
Example with a defined :map
(setf map
(gen-combine
(make-alphabet)
(gen-integer-step 0 26 '(1 -2 3 1))))
=> ((a 0) (b 1) (c -1) (d 2) (e 3) (f 4) (g 2) (h 5) (i 6)
(j 7) (k 5) (l 8) (m 9) (n 10) (o 8) (p 11) (q 12) (r 13)
(s 11) (t 14) (u 15) (v 16) (w 14) (x 17) (y 18) (z 19))
(text-to-pitch '("To be, or not to be, that is the ques