Function Find-Slot

Part of:

package cl-perec
( find-slot )