Plaster

CL-USER> (closer-mop:class-slots (find-class 'c2)) (#<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 COMMON-LISP-USER::NAME> #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION COMMON-LISP-USER::EMAIL>) CL-USER> (inspect *) The object is a proper list of length 6. 0. 0: #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO.DAO.MIXIN::CREATED-AT> 1. 1: #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO.DAO.MIXIN::UPDATED-AT> 2. 2: #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO.DAO.MIXIN::SYNCED> 3. 3: #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION MITO.DAO.MIXIN::ID> 4. 4: #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION COMMON-LISP-USER::NAME> 5. 5: #<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION COMMON-LISP-USER::EMAIL> > 4 The object is a STANDARD-OBJECT of type SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION. 0. SOURCE: NIL 1. NAME: NAME 2. INITFORM: NIL 3. INITFUNCTION: NIL 4. INITARGS: (:NAME) 5. %TYPE: T 6. %DOCUMENTATION: NIL 7. %CLASS: #<MITO-VALIDATE:MITO-VALIDATE-METACLASS COMMON-LISP-USER::C2> 8. ACCESSOR-FLAGS: 15 9. INFO: #S(SB-PCL::SLOT-INFO :TYPECHECK NIL :ALLOCATION :INSTANCE :LOCATION 4 :READER #<FUNCTION (LAMBDA (&REST SB-PCL::ARGS) :IN SB-PCL::INITIALIZE-INTERNAL-SLOT-FUNCTIONS) {100174EA8B}> :WRITER #<FUNCTION (LAMBDA (&REST SB-PCL::ARGS) :IN SB-PCL::INITIALIZE-INTERNAL-SLOT-FUNCTIONS) {100174EAFB}> :BOUNDP #<FUNCTION (LAMBDA (&REST SB-PCL::ARGS) :IN SB-PCL::INITIALIZE-INTERNAL-SLOT-FUNCTIONS) {100174EB6B}> :MAKUNBOUND #<FUNCTION (LAMBDA (&REST SB-PCL::ARGS) :IN SB-PCL::INITIALIZE-INTERNAL-SLOT-FUNCTIONS) {100174EBDB}>) 10. ALLOCATION: :INSTANCE 11. ALLOCATION-CLASS: #<MITO-VALIDATE:MITO-VALIDATE-METACLASS COMMON-LISP-USER::C1> 12. LOCATION: 4 >