Function Identity-Writer

Part of:

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