#<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]