(bind-func nnsock_set_recv_timeout (lambda (sock:i32 timeout_ms:i32) (let ((timeout_ptr:i32* (salloc))) (pset! timeout_ptr 0 timeout_ms) (nn_setsockopt sock NN_SOL_SOCKET NN_RCVTIMEO (cast timeout_ptr i8*) 4))))