Plaster

common-lisp
#<METALOCK {1002F4E3E3}> -------------------- Name: LOCKED-OBJECT Super classes: #<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT> Direct Slots: ARR Effective Slots: #<N/A (class not finalized)> [finalize] Sub classes: Precedence List: #<N/A (class not finalized)> It is used as a direct specializer in the following methods: ((SETF ARR-ACCESS) T LOCKED-OBJECT) Documentation: automatically generated writer method (ARR-ACCESS LOCKED-OBJECT) Documentation: automatically generated reader method Prototype: #<N/A (class not finalized)> -------------------- Group slots by inheritance [ ] Sort slots alphabetically [X] All Slots: [ ] %CLASS-PRECEDENCE-LIST = (#<METALOCK METALOCK::LOCKED-OBJECT> #<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT> #<SB-PCL::SLOT-CLASS SB-PCL::SLOT-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) [ ] %DOCUMENTATION = NIL [ ] %TYPE = (CLASS #<METALOCK METALOCK::LOCKED-OBJECT>) [ ] CAN-PRECEDE-LIST = (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL::SLOT-CLASS SB-PCL::SLOT-OBJECT> #<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT>) [ ] CLASS-EQ-SPECIALIZER = #<SB-PCL::CLASS-EQ-SPECIALIZER #<METALOCK METALOCK::LOCKED-OBJECT>> [ ] CPL-AVAILABLE-P = T [ ] DIRECT-METHODS = ((#<SB-MOP:STANDARD-WRITER-METHOD (COMMON-LISP:SETF METALOCK::ARR-ACCESS), slot:ARR, (T LOCKED-OBJECT) {1001FF20E3}> #<SB-MOP:STANDARD-READER-METHOD METALOCK::ARR-ACCESS, slot:ARR, (LOCKED-OBJECT) {100228C0F3}>)) [ ] DIRECT-SLOTS = (#<SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION METALOCK::ARR>) [ ] DIRECT-SUBCLASSES = NIL [ ] DIRECT-SUPERCLASSES = (#<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT>) [ ] FINALIZED-P = NIL [ ] INCOMPATIBLE-SUPERCLASS-LIST = NIL [ ] LOCKS = #<unbound> [ ] NAME = LOCKED-OBJECT [ ] PLIST = NIL [ ] PROTOTYPE = NIL [ ] SAFE-P = T [ ] SLOTS = NIL [ ] SOURCE = #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/home/josh/documents/lisp/programs/metalock/metalock.lisp" :INDICES 360449) [ ] WRAPPER = #<SB-KERNEL:LAYOUT for LOCKED-OBJECT {20504A83}> [set value] [make unbound]