Function Class-Name->T-Class-Name

Part of:

package cl-perec
( class-name->t-class-name < class-name > )