317
@verb #4:"_destructor" this none this rxdo #55
@program #4:"_destructor" this none this
"Begin generic security check (_destructor)"
if (verb == "_destructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_destructor)"
if (caller_perms() == #-1)
  args[1]:_set_teachers({})
  args[1]:_set_students({})
  args[1]:zap_contribs()
  $clock:zap_tasks(args[1])
  disowned = setremove(args[1].owned_objects, args[1])
  fork (5)
    $repo_man:dispatch(@disowned)
  endfork
endif
"Last modified by Slacker (#55) on Sat Mar 30 16:27:09 2002 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.

0