;; bind-func-ipc is for passing an already compiled (and setter'd)
;; native function across to a non-primary process
(define bind-func-ipc
(lambda (symname)
(let ((zone-size *impc:default-zone-size*))
(eval
`(define ,symname
(impc:ti:create-scheme-wrapper (symbol->string ',symname)))
(interaction-environment)))))