query_shadowing
The function returns the object which obj is currently shadowing, or 0 if obj is not a shadow.
obj
shadow(E), unshadow(E)
shadow
unshadow