;; helper for doing regex-based matching of device names (define get-midi-device-names-alist (lambda () (make-list-with-proc (pm_count_devices) (lambda (id) (cons id (cptr->string (pm_device_name id)))))))