Function Relatedp

Part of:

package submarine
( relatedp < object1 > < object2 > &key < relation > )
Tell whether `OBJECT1' and `OBJECT2' are in the many-to-many relation
`RELATION' (or the unnamed relation if `RELATION' is not provided).