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