Use new predicate DIRECT-SLOT-DEFINITION-P.
Use new predicate DIRECT-SLOT-DEFINITION-P.

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