@verb #8572:"_kick" this none this rxdo #7407
@program #8572:"_kick" this none this
"Cleanup the list of people sitting here."
"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)"
{furniture} = args
furniture:isa($furniture) || raise(E_INVARG)
sitting = {}
for dude in (furniture.sitting)
  if (valid(dude) && dude.location == furniture.location)
    sitting = {@sitting, dude}
  endif
endfor
furniture.sitting = sitting
"Last modified by Dax (#789) on Sat Nov  9 13:53:19 2002 MST."
.