@verb #54:"_kick" this none this rxdo #789
@program #54:"_kick" this none this
"Begin generic security check (_kick)"
if (verb == "_kick" && !args[1]:isa(this))
  raise(E_INVARG, "Illegal object", args[1])
  return E_INVARG
endif
"End generic security check (_kick)"
{victim} = args
if (parent(victim) == $trash || victim == $trash)
  "Good"
elseif (victim:isa($trash))
  "Bad"
  chparent(victim, $trash)
else
  "Ugly"
  raise(E_INVARG)
endif
if (!$recycler:contains(victim))
  "Must have escaped"
  move(victim, $recycler)
endif
"Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."
.