[CM] MidiShare error with CM

[Rick Taube]

> Thanks, Rick, that fixed it. Now how do I get a newline after each 
> force-output ? :

(terpri) will do that:

(set-receiver! (lambda (ev)
                  (ms:MidiPrintEv ev)
                  (terpri)
                  (force-output)
                  (ms:MidiFreeEv ev))    ; dont forget to free an ev if 
you dont resend!
                *ms*)