@verb #1:"ancestors" this none this rxd #60
@program #1:"ancestors" this none this
"Usage:  object:ancestors()"
"Return a list of all ancestors of this object."
"If called with a single object, the result will be in order ascending up the inheritance hierarchy.  If called with multiple objects, it probably won't."
if (!valid(parent(this)))
  return {}
else
  return {parent(this), @parent(this):ancestors()}
endif
"This appears to be the 'old' way of doing ancestors."
"It was before people discovered you don't have to pass arguments around for no apparent reason."
"args = setadd(args, this);"
"ret = {};"
"for o in (args)"
"  ret = $set_utils:union(ret, o:ancestors());"
"endfor"
"return ret;"
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:03 2002 MDT)."
"Last modified by Cecil (#7407) on Fri Oct  4 12:30:46 2002 MDT."
.