(let ((dzn-pump (dzn:get (.locator o) <dzn:pump>)))
(set! (.#.name  o)
  (make <#x:port-type >
     ##:in (make <#x:port-type .in>
     #x:declare-async-req-method
     #x:declare-async-clr-method)
     ##:out (make <#x:port-type .out>
     ##:name "#.name "
     ##:self o
     #x:declare-async-method))))