Factored out call to EFFECTIVE-SLOT-DEFINITION-CLASS.
Factored out call to EFFECTIVE-SLOT-DEFINITION-CLASS.

clasp-developers/SICL,vtomole/SICL,vtomole/SICL,clasp-developers/SICL,vtomole/SICL,clasp-developers/SICL,vtomole/SICL,clasp-developers/SICL