[CM] CM + MidiShare + Linux

[dlphillips@woh.rr.com]

Greetings:

  I'm having some luck with MidiShare with Common Music under Linux and CMUCL 19. Here's what I can reliably make happen:

    * (midi-open)
    * (output (ms:new typeNote :port 1 :pitch (between 50 80) :dur (pick 1000 2000 3000)))
    * (midi-close)

  The output note will sound on a MidiShare-connected instance of fluidsynth. Apparently this will work only if fluidsynth is launched *after* CM has been opened with a MidiShare port (i.e., as shown above).

  If I try (midi-open) again after (midi-close) then Lisp will lose its mind and requires an explicit kill -9.

  Often (quit) will also cause Lisp to lose its mind and I have to explicitly kill Lisp too.

  The cmio GUI also works if I enter the output statement above in the Events entry box. However, this code will not work (no sound):

(define (ms-test )
(process repeat 100
  output (ms:new typeNote :port 1
                          :pitch (between 50 80)
                          :dur (pick 1000 2000 3000))
         wait .015))

  Am I missing something ?

Best,

dp