Add simple definition of CLASS-OF as component of phase 1.
Add functions for manipulating slots using classes.