(define ipc:set-local-remote-mapping
(lambda (local-name remote-name)
(let ((res (assoc *impc:remote-process-name-map* local-name)))
(if res
(set-cdr! res remote-name)
(set! *impc:remote-process-name-map*
(cons (cons local-name remote-name)
*impc:remote-process-name-map*))))))