(define get-midi-output-device-names-alist (lambda () (filter (lambda (dev) (= 1 (pm_device_output_p (car dev)))) (get-midi-device-names-alist))))