Plaster

text
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--