Function Identity-Reader

Part of:

package cl-perec
( identity-reader < type > )