(define ipc:proc-name-with-mapping (lambda () (let ((pair (assoc *impc:remote-process-name-map* (ipc:get-process-name)))) (if pair (car pair) (ipc:get-process-name)))))