Invalid initialization argument:
  :ALLOCATION-CLASS
in call for class #<STANDARD-CLASS SB-MOP:EFFECTIVE-SLOT-DEFINITION>.
   [Condition of type SB-PCL::INITARG-ERROR]

Restarts:
 0: [RETRY] Retry SLY mREPL evaluation request.
 1: [*ABORT] Return to SLY's top level.
 2: [ABORT] abort thread (#<THREAD "sly-channel-1-mrepl-remote-1" RUNNING {1004E236B3}>)

Backtrace:
 0: (SB-PCL::INITARG-ERROR #<STANDARD-CLASS SB-MOP:EFFECTIVE-SLOT-DEFINITION> (:ALLOCATION-CLASS))
 1: ((:METHOD MAKE-INSTANCE (CLASS)) #<STANDARD-CLASS SB-MOP:EFFECTIVE-SLOT-DEFINITION> :NAME ARR :INITFORM "oof" :INITFUNCTION #<FUNCTION (LAMBDA NIL :IN "/home/josh/documents/lisp/programs/metalock/meta..
 2: ((:METHOD SB-MOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION (SB-PCL::SLOT-CLASS T T)) #<METALOCK METALOCK::LOCKED-OBJECT> #<unused argument> (#<SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION METALOCK::ARR>)) [fast-met..
 3: (SB-PCL::STD-COMPUTE-SLOTS #<METALOCK METALOCK::LOCKED-OBJECT>)
 4: ((FLET CALL-NEXT-METHOD :IN "/home/josh/documents/lisp/programs/metalock/metalock.lisp"))
 5: ((:METHOD SB-MOP:COMPUTE-SLOTS (METALOCK)) #<METALOCK METALOCK::LOCKED-OBJECT>) [fast-method]
 6: ((:METHOD SB-MOP:COMPUTE-SLOTS :AROUND (STANDARD-CLASS)) #<METALOCK METALOCK::LOCKED-OBJECT>) [fast-method]
 7: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS))
 8: ((FLET "WITHOUT-INTERRUPTS-BODY-29" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
 9: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7F57F641C9EB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "sly-channe..
10: ((LABELS SB-PCL::REC :IN SB-PCL::UPDATE-CLASS) #<METALOCK METALOCK::LOCKED-OBJECT> T NIL)
11: ((:METHOD MAKE-INSTANCE (CLASS)) #<METALOCK METALOCK::LOCKED-OBJECT>) [fast-method]
12: (SB-INT:SIMPLE-EVAL-IN-LEXENV (MAKE-INSTANCE (QUOTE LOCKED-OBJECT)) #<NULL-LEXENV>)
13: (EVAL (MAKE-INSTANCE (QUOTE LOCKED-OBJECT)))
14: ((LAMBDA NIL :IN SLYNK-MREPL::MREPL-EVAL-1))
 --more--