"counterpoint 6.opmo" does not compile. "Error: Cannot coerce -1 to type string."

I fixed it by changing this line:

(setf v-5 (gen-loop d-5 (rnd-sample 12 '(1 2 3 - -) :encode nil :seed 42)))

to

(setf v-5 (gen-loop d-5 (rnd-sample 12 '(1 2 3) :encode nil :seed 42)))

The example "counterpoint 4.opmo" also fails to compile. "Error: Cannot coerce -3/4 to type string."

I'm not sure how to fix that one.

Works here.

Jesper

(setf d-5 6)

(setf v-5 (gen-loop d-5 (rnd-sample 12 '(1 2 3 - -) :encode nil :seed 42)))

->((3 2 1 - - - - 3 1 - - 3) (3 2 1 - - - - 3 1 - - 3) (3 2 1 - - - - 3 1 - - 3) (3 2 1 - - - - 3 1 - - 3) (3 2 1 - - - - 3 1 - - 3) (3 2 1 - - - - 3 1 - - 3))

Just to confirm - I also get errors on both those files of the 'cannot coerce to string' variety. This is when using the 'Evaluate All' option on both Counterpoint 4 and Counterpoint 6 code.

On Counterpoint 6, the error is thrown by the counterpoint function in Section 5.

On Counterpoint 4, all three of the counterpoint function code lines throw a "cannot coerce to string" error.

Running latest OM update, 4.0.30647. MacOS.

Ah, OK, then I don't know, I'm afraid.

Jesper

Will have a look.

Fixed in 4.0.30671