Plaster

common-lisp
MITO-VALIDATE> (closer-mop:class-slots *c3*) (#<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO.DAO.MIXIN::CREATED-AT> #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO.DAO.MIXIN::UPDATED-AT> #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO.DAO.MIXIN::SYNCED> #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO.DAO.MIXIN::ID> #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO-VALIDATE::NAME> #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO-VALIDATE::EMAIL>) MITO-VALIDATE> (closer-mop:class-direct-slots *c3*) (#<MITO-VALIDATE-STANDARD-DIRECT-SLOT-DEFINITION MITO-VALIDATE::NAME> #<MITO-VALIDATE-STANDARD-DIRECT-SLOT-DEFINITION MITO-VALIDATE::EMAIL>) (defmethod closer-mop:effective-slot-definition-class ((class mito-validate-metaclass) &rest initargs) (declare (ignorable initargs)) (find-class 'mito-validate-standard-effective-slot-definition))