@verb #9595:"clean_verbs" this none this rxd #8034
@program #9595:"clean_verbs" this none this
"cleans all verbs that aren't present on the generic."
if (caller != this)
  raise(E_PERM)
endif
for v in (verbs(this))
  if (!(v in verbs(#9595)))
    delete_verb(this, v)
  endif
  $command_utils:suspend_if_needed(4)
endfor
"Last modified by Pentomino (#8034) on Mon Aug 30 14:47:30 2004 MDT."
.