(set! (.#.name  o) (make <#x:instance->type-name > ##:locator (.locator o) ##:parent o ##:name "#.name "))
(set! (.name (.out (.#x:port-name  (.#.name  o)))) "#x:port-name ")