,send-expr ,@rcv-exprs))
(defmacro wnnrpc-get-result (&rest body)
`(let (result)
`(let (result resulth)
(comm-unpack (u) result)
(comm-unpack (w w) resulth result)
(cond ((and (= result 65535) (= resulth 65535))
(setq result -1))
((= resulth (lsh (lsh resulth 16) -16))
(setq result (+ (lsh resulth 16) result)))
(t
(error "overflow")))
(if (< result 0)
(progn