Function Reader-Name-Of

Part of:

package cl-perec
( reader-name-of < effective-slot > )