(bind-func pm_device_name (lambda (device_id) (let ((dev_info (Pm_GetDeviceInfo device_id))) (if (null? dev_info) "" ;; "empty" name (tref dev_info 2)))))