@verb #2945:"_destructor" this none this rxdo #789
@program #2945:"_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)
  return
endif
"Slaughter any illegitimate kids this permit may have."
for kid in (args[1]:descendents())
  fork (0)
    player:tell("Recycling bastard permit ", $string_utils:nn(kid), "...")
    $recycler:recycle(kid)
  endfork
endfor
if (args[1].clock_task && parent(args[1]) == this.master)
  `$clock:kill(args[1].clock_task) ! ANY'
  victim = args[1].owner
  $building_utils:chparent(victim, $builder)
  victim.gaglist = setremove(victim.gaglist, #-1)
  #4984.prog_fail = {@#4984.prog_fail, {victim, time()}}
endif
"Last modified by Cecil (#7407) on Sun Aug 25 01:52:57 2002 MDT."
.