Function String->Member-Reader

Part of:

package cl-perec
( string->member-reader < type > )