@verb #1:"all_nonclear_properties_suspended" this none this rxd #55
@program #1:"all_nonclear_properties_suspended" this none this
set_task_perms(caller_perms())
r = this:all_properties_suspended()
for x in (r)
  $command_utils:suspend_if_needed()
  if (x in $code_utils.builtin_props)
    break
  elseif (`is_clear_property(this, x) ! E_PROPNF => "Got nuked during a suspend(), remove it"')
    r = setremove(r, x)
  endif
endfor
return r
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
"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."
.