211
@verb #8500:"_kick" none none none rxdo #6397
@program #8500:"_kick" none none none
"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)"
len = length(args[1].been)
for i in [0..len - 1]
  idx = len - i
  if (!$recycler:valid(args[1].been[idx]))
    args[1].been = listdelete(args[1].been, idx)
  endif
endfor
"Last modified by Cecil (#7407) on Mon Aug 12 10:04:43 2002 MDT."
.

0