Tests

euallegro and eusqlite work with a little tweaking.

euallegro 0.3, allegro 4.2, line 3150
-- midi_out
constant my_midi_out = link_proc(AllegroLib, "midi_out", {C_POINTER, C_INT})
global procedure midi_out(sequence data, integer len)
   atom data_addr

   data_addr = allocate(length(data))                           --CMB Modified 8/12/2016
   c_proc(my_midi_out,{data_addr, len})
   free(data_addr)
end procedure