@verb #1:"property_loc*ation" this none this rxd #789
@program #1:"property_loc*ation" this none this
"Returns the ancestor upon which some inherited property is defined."
"$thing:property_location('description')  =>  {#1}"
"$thing:property_location('owned_objects')  => 0"
"Copied from Lao-Tzu (#8084)"
prop = args[1]
if (prop in $code_utils.builtin_props)
  return {$new_root}
endif
parent = this
while (valid(parent))
  if (prop in `properties(parent) ! E_PERM => {}')
    return {parent}
  endif
  parent = parent(parent)
endwhile
return 0
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
.