Function Pattern-Reader

Part of:

package cl-perec
( pattern-reader < stream > < subchar > < arg > )