Function Normalize-Association-End-Access

Part of:

package cl-perec
( normalize-association-end-access < query > )
If the assoc is 1-1
(eq (<secondary-assoc-end-accessor> <obj1>) <obj2>) -> (eq (primary-assoc-end-accessor <obj2>) <obj1>)