Defined FIND-CLASS using new environment protocol.
Defined (SETF FIND-CLASS) using new environment protocol.
Removed component that is no longer needed