Hi there,
How do you do a tonal transposition to stay in the same key?
e.g. '(c4 d4 e4) => '(d4 e4 f4)
Thanks.

(setf m1 '(c4 d4 e4))
(setf m2 (tonality-map '(major :closest 'down) (pitch-transpose 2 m1)))