(set! (.#.name  o)
  (make <#x:port-type >
     ##:in (make <#x:port-type .in>
     ##:name "#.name "
     ##:self o
     #x:declare-method)
     ##:out (make <#x:port-type .out>)))