Function Random-Char

Part of:

package kmrcl
( random-char &optional < set > )