Definitions of FIND-CLASS and (SETF FIND-CLASS).