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