Object ancestor := method ( prototype := self proto if (prototype != Obejct, writeln ("Slots of ", prototype type, "\n------------------" ) prototype slotNames foreach (slotName, writeln (slotName) ) writeln prototype ancestors ) ) unl…