@verb #210:"clearall" this none this rxdo #789
@program #210:"clearall" this none this
":clearall() Deletes everything in the database."
this:is_writable_by(caller_perms()) || raise(E_PERM)
for p in (properties(this))
  if (p[1] == " " && p != " ")
    delete_property(this, p)
  endif
  $command_utils:suspend_if_needed()
endfor
"Last modified by Dax (#789) on Sat May 21 03:39:51 2005 MDT."
.