(slot-set! (slot-ref (slot-ref o '#.name) 'in) 'self c)
(slot-set! (slot-ref (slot-ref o '#.name) 'in) 'name "<external>.#.name ")
