(bind-func pm_device_output_p (lambda (device_id) (let ((dev_info (Pm_GetDeviceInfo device_id))) (if (null? dev_info) 0 ;; false if the device ID doesn't exist (tref dev_info 4)))))