Opusmodus 1.2.20574

[opmo]

Fix to INTERGER-TO-INTERVAL:

(integer-to-interval '((-12) ((2 4) 5 19 -12 (2 4) 5 19)))
=> ((nil) ((14 2) 1 14 -31 (14 2) 1 14))

Test

(interval-to-integer '((nil) ((14 2) 1 14 -31 (14 2) 1 14)) :start -12)
=> ((-12) ((2 4) 5 19 -12 (2 4) 5 19))

(interval-to-pitch '((nil) ((14 2) 1 14 -31 (14 2) 1 14)) :start -12)
=> ((c3) (d4e4 f4 g5 c3 d4e4 f4 g5))