Plaster
New
List
Login
common-lisp
default
anonymous
2020.12.23 20:03:27
GBBOPEN-USER> (define-unit-class bunny () (x y)) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (defvar *bunny-class* *) *BUNNY-CLASS* GBBOPEN-USER> (ensure-finalized-class *bunny-class*) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (last (class-slots *)) (#<Nonlink-slot Y {1012FE3FF3}>) GBBOPEN-USER> (define-ks bunny-alert-ks :rating 100 :trigger-events ((nonlink-slot-updated-event bunny)) :execution-function 'bunny-alert-ks-function) [...] Slot #<Nonlink-slot Y {1012FE3FF3}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot Y {1012FE3FF3}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) #<KS BUNNY-ALERT-KS> GBBOPEN-USER> (last (class-slots *bunny-class*)) (#<Nonlink-slot Y {1013C9B633}>) GBBOPEN-USER> (eq (car *) (car ***)) NIL
Raw
Annotate
Repaste
Edit
Annotations
text
default
anonymous
2020.12.23 20:19:33
GBBOPEN-USER> (define-unit-class bunny () (x y)) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (defvar *bunny-class* *) *BUNNY-CLASS* GBBOPEN-USER> (ensure-finalized-class *bunny-class*) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (progn (define-ks bunny-alert-ks :rating 100 :trigger-events ((nonlink-slot-updated-event bunny)) :execution-function 'bunny-alert-ks-function) (last (class-slots *bunny-class*))) [1] Last slot in bunny: (#<Nonlink-slot Y {1012E1D6F3}>) Slot #<Nonlink-slot INSTANCE-NAME {1012E19663}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot INSTANCE-NAME {1012E19663}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) Slot #<Nonlink-slot GBBOPEN::%%SPACE-INSTANCES%% {1012E1CA13}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot GBBOPEN::%%SPACE-INSTANCES%% {1012E1CA13}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) Slot #<Nonlink-slot X {1012E1D083}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot X {1012E1D083}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) Slot #<Nonlink-slot Y {1012E1D6F3}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot Y {1012E1D6F3}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) [2] Last slot in bunny: (#<Nonlink-slot Y {1012E1D6F3}>) [3] Last slot in bunny: (#<Nonlink-slot Y {1012E1D6F3}>) [4] Last slot in bunny: (#<Nonlink-slot Y {1012E1D6F3}>) [5] Last slot in bunny: (#<Nonlink-slot Y {1012E1D6F3}>) (#<Nonlink-slot Y {1012E1D6F3}>) GBBOPEN-USER> (last (class-slots *bunny-class*)) (#<Nonlink-slot Y {1012E1D6F3}>) GBBOPEN-USER>
Raw
Repaste
Edit
text
default
anonymous
2020.12.23 20:24:00
GBBOPEN-USER> (define-unit-class bunny () (x y)) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (defvar *bunny-class* *) *BUNNY-CLASS* GBBOPEN-USER> (ensure-finalized-class *bunny-class*) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (last (class-slots *bunny-class*)) (#<Nonlink-slot Y {1012DF7813}>) GBBOPEN-USER> (define-ks bunny-alert-ks :rating 100 :trigger-events ((nonlink-slot-updated-event bunny)) :execution-function 'bunny-alert-ks-function) [1] Last slot in bunny: (#<Nonlink-slot Y {1012DF7813}>) Slot #<Nonlink-slot INSTANCE-NAME {1012DF3783}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot INSTANCE-NAME {1012DF3783}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) Slot #<Nonlink-slot GBBOPEN::%%SPACE-INSTANCES%% {1012DF6B33}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot GBBOPEN::%%SPACE-INSTANCES%% {1012DF6B33}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) Slot #<Nonlink-slot X {1012DF71A3}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot X {1012DF71A3}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) Slot #<Nonlink-slot Y {1012DF7813}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot Y {1012DF7813}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) [2] Last slot in bunny: (#<Nonlink-slot Y {1012DF7813}>) [3] Last slot in bunny: (#<Nonlink-slot Y {1012DF7813}>) [4] Last slot in bunny: (#<Nonlink-slot Y {1012DF7813}>) [5] Last slot in bunny: (#<Nonlink-slot Y {1012DF7813}>) #<KS BUNNY-ALERT-KS> GBBOPEN-USER> (last (class-slots *bunny-class*)) (#<Nonlink-slot Y {10139F6563}>) GBBOPEN-USER>
Raw
Repaste
Edit
common-lisp
default
anonymous
2020.12.23 20:29:16
GBBOPEN-USER> (define-unit-class bunny () (x y)) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (defvar *bunny-class* *) *BUNNY-CLASS* GBBOPEN-USER> (ensure-finalized-class *bunny-class*) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (last (class-slots *bunny-class*)) (#<Nonlink-slot Y {1012FE3FF3}>) GBBOPEN-USER> (progn (define-ks bunny-alert-ks :rating 100 :trigger-events ((nonlink-slot-updated-event bunny)) :execution-function 'bunny-alert-ks-function) (last (class-slots *bunny-class*))) [1] Last slot in bunny: (#<Nonlink-slot Y {1012FE3FF3}>) Slot #<Nonlink-slot INSTANCE-NAME {1012FDFF13}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot INSTANCE-NAME {1012FDFF13}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) Slot #<Nonlink-slot GBBOPEN::%%SPACE-INSTANCES%% {1012FE3313}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot GBBOPEN::%%SPACE-INSTANCES%% {1012FE3313}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) Slot #<Nonlink-slot X {1012FE3983}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot X {1012FE3983}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) Slot #<Nonlink-slot Y {1012FE3FF3}>: evfn-blks ((#<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> . #S(GBBOPEN::EVFN-BLK :EVENT-CLASS #<NONLINK-SLOT-EVENT-CLASS GBBOPEN:NONLINK-SLOT-UPDATED-EVENT> :UNIT-CLASS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> :SLOT-OR-SPACE-QUALIFIER #<Nonlink-slot Y {1012FE3FF3}> :PRINTING-FLAGS 0 :EVFNS NIL :EVSTREAMERS NIL :KS-TRIGGERS NIL))) [2] Last slot in bunny: (#<Nonlink-slot Y {1012FE3FF3}>) [3] Last slot in bunny: (#<Nonlink-slot Y {1012FE3FF3}>) [4] Last slot in bunny: (#<Nonlink-slot Y {1012FE3FF3}>) [5] Last slot in bunny: (#<Nonlink-slot Y {1012FE3FF3}>) (#<Nonlink-slot Y {1012FE3FF3}>) GBBOPEN-USER> (last (class-slots *bunny-class*)) (#<Nonlink-slot Y {1012FE3FF3}>) GBBOPEN-USER> (gc) ; in: GC ; (GBBOPEN-USER::GC) ; ; caught STYLE-WARNING: ; undefined function: GBBOPEN-USER::GC ; ; compilation unit finished ; Undefined function: ; GC ; caught 1 STYLE-WARNING condition ; Evaluation aborted on #<UNDEFINED-FUNCTION GC {1013A9B3D3}>. GBBOPEN-USER> (sb-ext:gc) NIL GBBOPEN-USER> (last (class-slots *bunny-class*)) (#<Nonlink-slot Y {1013DEB033}>) GBBOPEN-USER>
Raw
Repaste
Edit
text
default
anonymous
2020.12.23 22:09:44
break [Condition of type SIMPLE-CONDITION] Restarts: 0: [CONTINUE] Return from BREAK. 1: [RETRY] Retry SLIME REPL evaluation request. 2: [*ABORT] Return to SLIME's top level. 3: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {100B2C9EC3}>) Backtrace: 0: ((SB-PCL::EMF COMPUTE-EFFECTIVE-SLOT-DEFINITION) #<unused argument> #<unused argument> #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> INSTANCE-NAME (#<DIRECT-NONLINK-SLOT-DEFINITION GBBOPEN:INSTANCE-NAME>.. Locals: SB-PCL::.ARG0. = #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> SB-PCL::.ARG1. = INSTANCE-NAME SB-PCL::.ARG2. = (#<DIRECT-NONLINK-SLOT-DEFINITION GBBOPEN:INSTANCE-NAME> #<STANDARD-DIRECT-SLOT-DEFINITION GBBOPEN:INSTANCE-NAME>) 1: (SB-PCL::STD-COMPUTE-SLOTS #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY>) Locals: CLASS = #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> 2: ((:METHOD COMPUTE-SLOTS :AROUND (STANDARD-CLASS)) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY>) [fast-method] Locals: SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD COMPUTE-SLOTS (STANDARD-CLASS))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) CLASS = #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> 3: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS)) [No Locals] 4: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK)) Locals: GOT-IT = NIL MUTEX = #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100B2C9EC3}>> 5: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7FD46575CDDB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thre.. Locals: GOT-IT = NIL MUTEX = #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100B2C9EC3}>> SB-C::THING = #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7FD46575CDDB}> TIMEOUT = NIL WAITP = T 6: ((LABELS SB-PCL::REC :IN SB-PCL::UPDATE-CLASS) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> NIL (#<STANDARD-UNIT-CLASS GBBOPEN:STANDARD-UNIT-INSTANCE> #<STANDARD-CLASS GBBOPEN:DELETED/NON-DELETED-UNIT-I.. Locals: CLASS = #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> #:G0 = NIL SEEN = (#<STANDARD-UNIT-CLASS GBBOPEN:STANDARD-UNIT-INSTANCE> #<STANDARD-CLASS GBBOPEN:DELETED/NON-DELETED-UNIT-INSTANCE> #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) 7: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS)) [No Locals] 8: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK)) Locals: GOT-IT = NIL MUTEX = #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100B2C9EC3}>> 9: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7FD46575CFDB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thre.. Locals: GOT-IT = NIL MUTEX = #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100B2C9EC3}>> SB-C::THING = #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7FD46575CFDB}> TIMEOUT = NIL WAITP = T 10: ((LABELS SB-PCL::REC :IN SB-PCL::UPDATE-CLASS) #<STANDARD-UNIT-CLASS GBBOPEN:STANDARD-UNIT-INSTANCE> NIL (#<STANDARD-CLASS GBBOPEN:DELETED/NON-DELETED-UNIT-INSTANCE> #<STANDARD-CLASS GBBOPEN-TOOLS:STA.. Locals: CLASS = #<STANDARD-UNIT-CLASS GBBOPEN:STANDARD-UNIT-INSTANCE> #:G0 = NIL SEEN = (#<STANDARD-CLASS GBBOPEN:DELETED/NON-DELETED-UNIT-INSTANCE> #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) 11: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS)) [No Locals] 12: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK)) Locals: GOT-IT = NIL MUTEX = #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100B2C9EC3}>> 13: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7FD46575D1DB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thre.. Locals: GOT-IT = NIL MUTEX = #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100B2C9EC3}>> SB-C::THING = #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7FD46575D1DB}> TIMEOUT = NIL WAITP = T 14: ((LABELS SB-PCL::REC :IN SB-PCL::UPDATE-CLASS) #<STANDARD-CLASS GBBOPEN:DELETED/NON-DELETED-UNIT-INSTANCE> NIL (#<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>)) Locals: CLASS = #<STANDARD-CLASS GBBOPEN:DELETED/NON-DELETED-UNIT-INSTANCE> #:G0 = NIL SEEN = (#<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) 15: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS)) [No Locals] 16: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK)) Locals: GOT-IT = T MUTEX = #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100B2C9EC3}>> 17: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7FD46575D3DB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thre.. Locals: GOT-IT = T MUTEX = #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100B2C9EC3}>> SB-C::THING = #<FUNCTION (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7FD46575D3DB}> TIMEOUT = NIL WAITP = T 18: ((LABELS SB-PCL::REC :IN SB-PCL::UPDATE-CLASS) #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE> T NIL) Locals: CLASS = #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE> #:G0 = T SEEN = NIL 19: (SB-PCL::CPL-OR-NIL #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) Locals: CLASS = #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE> 20: (SB-PCL::SAUT-NOT-CLASS (CLASS #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) (CLASS #<STANDARD-CLASS GBBOPEN:GBBOPEN-NODE-STATE>)) Locals: NTYPE = (CLASS #<STANDARD-CLASS GBBOPEN:GBBOPEN-NODE-STATE>) SPECL = (CLASS #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) 21: (SB-PCL::SAUT-NOT (CLASS #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) (NOT (CLASS #<STANDARD-CLASS GBBOPEN:GBBOPEN-NODE-STATE>))) Locals: SPECL = (CLASS #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) TYPE = (NOT (CLASS #<STANDARD-CLASS GBBOPEN:GBBOPEN-NODE-STATE>)) 22: (SB-PCL::SAUT-AND (CLASS #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) (AND (NOT (CLASS #<STANDARD-CLASS GBBOPEN:GBBOPEN-NODE-STATE>)) (CLASS #<INSTANCE-EVENT-CLASS GBBOPEN:MULTIPLE-INSTA.. Locals: APPLICABLE = NIL POSSIBLY-APPLICABLE = T SPECL = (CLASS #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) TYPE = (AND (NOT (CLASS #<STANDARD-CLASS GBBOPEN:GBBOPEN-NODE-STATE>)) (CLASS #<INSTANCE-EVENT-CLASS GBBOPEN:MULTIPLE-INSTANCE-EVENT>) (CLASS #<SPACE-INSTANCE-EVENT-CLASS GBBOPEN:SPACE-INSTANCE-EVENT>) ..) 23: ((LABELS SB-PCL::DO-METHODS :IN SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL) (0 1) (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-GBBOPEN-INSTANCE T) {100EBCC433}>) (AND (NOT (CLASS .. Locals: CONTENDERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-GBBOPEN-INSTANCE T) {100EBCC433}>) KNOWN-TYPE = (AND (NOT (CLASS #<STANDARD-CLASS GBBOPEN:GBBOPEN-NODE-STATE>)) (CLASS #<INSTANCE-EVENT-CLASS GBBOPEN:MULTIPLE-INSTANCE-EVENT>) (CLASS #<SPACE-INSTANCE-EVENT-CLASS GBBOPEN:SPACE-INSTANCE-EVENT>) ..) KNOWN-TYPES = NIL METHOD = #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-GBBOPEN-INSTANCE T) {100EBCC433}> P-TAIL = (0 1) TYPE = (CLASS #<STANDARD-CLASS GBBOPEN-TOOLS:STANDARD-GBBOPEN-INSTANCE>) WINNERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-UNIT-INSTANCE T) {1010BCD223}> ..) 24: ((LABELS SB-PCL::DO-METHODS :IN SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL) (0 1) (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (GBBOPEN-NODE-STATE T) {100F522453}> #<STANDARD-METHOD GBBOPEN.. Locals: CONTENDERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (GBBOPEN-NODE-STATE T) {100F522453}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-GBBOPEN-INSTANCE T) {100EBCC433}>) KNOWN-TYPE = (AND (CLASS #<INSTANCE-EVENT-CLASS GBBOPEN:MULTIPLE-INSTANCE-EVENT>) (CLASS #<SPACE-INSTANCE-EVENT-CLASS GBBOPEN:SPACE-INSTANCE-EVENT>) (CLASS #<INSTANCE-EVENT-CLASS GBBOPEN:LINK/NONLINK-SLOT-EVENT>) .. KNOWN-TYPES = NIL P-TAIL = (0 1) WINNERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-UNIT-INSTANCE T) {1010BCD223}> ..) 25: ((LABELS SB-PCL::DO-METHODS :IN SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL) (0 1) (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (MULTIPLE-INSTANCE-EVENT T) {10105CD3F3}> #<STANDARD-METHOD GB.. Locals: CONTENDERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (MULTIPLE-INSTANCE-EVENT T) {10105CD3F3}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (SINGLE-INSTANCE-EVENT T) {10105C46C3}> ..) KNOWN-TYPE = (AND (CLASS #<SPACE-INSTANCE-EVENT-CLASS GBBOPEN:SPACE-INSTANCE-EVENT>) (CLASS #<INSTANCE-EVENT-CLASS GBBOPEN:LINK/NONLINK-SLOT-EVENT>) (CLASS #<STANDARD-CLASS GBBOPEN:STANDARD-LINK-POINTER>) ..) KNOWN-TYPES = NIL METHOD = #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (MULTIPLE-INSTANCE-EVENT T) {10105CD3F3}> P-TAIL = (0 1) TYPE = (CLASS #<INSTANCE-EVENT-CLASS GBBOPEN:MULTIPLE-INSTANCE-EVENT>) WINNERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-UNIT-INSTANCE T) {1010BCD223}> ..) 26: ((LABELS SB-PCL::DO-METHODS :IN SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL) (0 1) (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (SPACE-INSTANCE-EVENT T) {101060E793}> #<STANDARD-METHOD GBBOP.. Locals: CONTENDERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (SPACE-INSTANCE-EVENT T) {101060E793}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (MULTIPLE-INSTANCE-EVENT T) {10105CD3F3}> ..) KNOWN-TYPE = (AND (CLASS #<INSTANCE-EVENT-CLASS GBBOPEN:LINK/NONLINK-SLOT-EVENT>) (CLASS #<STANDARD-CLASS GBBOPEN:STANDARD-LINK-POINTER>) (CLASS #<STANDARD-CLASS GBBOPEN:DELETED-UNIT-INSTANCE>) ..) KNOWN-TYPES = NIL METHOD = #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (SPACE-INSTANCE-EVENT T) {101060E793}> P-TAIL = (0 1) TYPE = (CLASS #<SPACE-INSTANCE-EVENT-CLASS GBBOPEN:SPACE-INSTANCE-EVENT>) WINNERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-UNIT-INSTANCE T) {1010BCD223}> ..) 27: ((LABELS SB-PCL::DO-METHODS :IN SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL) (0 1) (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (LINK/NONLINK-SLOT-EVENT T) {1010633823}> #<STANDARD-METHOD GB.. Locals: CONTENDERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (LINK/NONLINK-SLOT-EVENT T) {1010633823}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (SPACE-INSTANCE-EVENT T) {101060E793}> ..) KNOWN-TYPE = (AND (CLASS #<STANDARD-CLASS GBBOPEN:STANDARD-LINK-POINTER>) (CLASS #<STANDARD-CLASS GBBOPEN:DELETED-UNIT-INSTANCE>) (CLASS #<STANDARD-KSA-CLASS AGENDA-SHELL:KSA>)) KNOWN-TYPES = NIL METHOD = #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (LINK/NONLINK-SLOT-EVENT T) {1010633823}> P-TAIL = (0 1) TYPE = (CLASS #<INSTANCE-EVENT-CLASS GBBOPEN:LINK/NONLINK-SLOT-EVENT>) WINNERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-UNIT-INSTANCE T) {1010BCD223}> ..) 28: ((LABELS SB-PCL::DO-METHODS :IN SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL) (0 1) (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-LINK-POINTER T) {101069C453}> #<STANDARD-METHOD GBBO.. Locals: CONTENDERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-LINK-POINTER T) {101069C453}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (LINK/NONLINK-SLOT-EVENT T) {1010633823}> ..) KNOWN-TYPE = (AND (CLASS #<STANDARD-CLASS GBBOPEN:DELETED-UNIT-INSTANCE>) (CLASS #<STANDARD-KSA-CLASS AGENDA-SHELL:KSA>)) KNOWN-TYPES = NIL METHOD = #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-LINK-POINTER T) {101069C453}> P-TAIL = (0 1) TYPE = (CLASS #<STANDARD-CLASS GBBOPEN:STANDARD-LINK-POINTER>) WINNERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-UNIT-INSTANCE T) {1010BCD223}> ..) 29: ((LABELS SB-PCL::DO-METHODS :IN SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL) (0 1) (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (DELETED-UNIT-INSTANCE T) {1010B6E453}> #<STANDARD-METHOD GBBO.. Locals: CONTENDERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (DELETED-UNIT-INSTANCE T) {1010B6E453}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-LINK-POINTER T) {101069C453}> ..) KNOWN-TYPE = (CLASS #<STANDARD-KSA-CLASS AGENDA-SHELL:KSA>) KNOWN-TYPES = NIL METHOD = #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (DELETED-UNIT-INSTANCE T) {1010B6E453}> P-TAIL = (0 1) TYPE = (CLASS #<STANDARD-CLASS GBBOPEN:DELETED-UNIT-INSTANCE>) WINNERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-UNIT-INSTANCE T) {1010BCD223}>) 30: ((LABELS SB-PCL::DO-METHODS :IN SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL) (0 1) (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-IN.. Locals: CONTENDERS = (#<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (STANDARD-UNIT-INSTANCE T) {1010BCD223}> ..) KNOWN-TYPE = T KNOWN-TYPES = NIL METHOD = #<STANDARD-METHOD GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (KSA T) {1012403F13}> P-TAIL = (0 1) TYPE = (CLASS #<STANDARD-KSA-CLASS AGENDA-SHELL:KSA>) WINNERS = NIL 31: (SB-PCL::DISPATCH-DFUN-COST #<STANDARD-GENERIC-FUNCTION GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (10)> 60) Locals: GF = #<STANDARD-GENERIC-FUNCTION GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (10)> LIMIT = 60 32: (SB-PCL::USE-DISPATCH-DFUN-P #<STANDARD-GENERIC-FUNCTION GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (10)> NIL) Locals: #:G0 = NIL GF = #<STANDARD-GENERIC-FUNCTION GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (10)> 33: (SB-PCL::MAKE-CHECKING-DFUN #<STANDARD-GENERIC-FUNCTION GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (10)> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD PRINT-INSTANCE-SLOTS (STANDARD-UN.. Locals: CACHE = NIL FUNCTION = #S(SB-PCL::FAST-METHOD-CALL ..) GENERIC-FUNCTION = #<STANDARD-GENERIC-FUNCTION GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (10)> 34: (SB-PCL::INITIAL-DFUN #<STANDARD-GENERIC-FUNCTION GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (10)> (#<KS BUNNY-ALERT-KS> #<SB-IMPL::STRING-OUTPUT-STREAM {7FD46575DD53}>)) Locals: ARGS = (#<KS BUNNY-ALERT-KS> #<SB-IMPL::STRING-OUTPUT-STREAM {7FD46575DD53}>) GF = #<STANDARD-GENERIC-FUNCTION GBBOPEN-TOOLS:PRINT-INSTANCE-SLOTS (10)> 35: ((FLET SB-IMPL::PRINT-DESCRIPTION :IN SB-IMPL::%PRINT-UNREADABLE-OBJECT)) 36: (SB-IMPL::%PRINT-UNREADABLE-OBJECT #<KS BUNNY-ALERT-KS> #<SB-IMPL::STRING-OUTPUT-STREAM {7FD46575DD53}> 0 #<FUNCTION (FLET "THUNK" :IN PRINT-OBJECT) {7FD46575DC8B}>) 37: ((:METHOD PRINT-OBJECT (STANDARD-GBBOPEN-INSTANCE T)) #<KS BUNNY-ALERT-KS> #<SB-IMPL::STRING-OUTPUT-STREAM {7FD46575DD53}>) [fast-method] 38: ((LABELS SB-IMPL::HANDLE-IT :IN SB-KERNEL:OUTPUT-OBJECT) #<SB-IMPL::STRING-OUTPUT-STREAM {7FD46575DD53}>) 39: (SB-INT:STRINGIFY-OBJECT #<KS BUNNY-ALERT-KS>) 40: (PRIN1-TO-STRING #<KS BUNNY-ALERT-KS>) 41: (SWANK::PRESENT-REPL-RESULTS (#<KS BUNNY-ALERT-KS>)) 42: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL)) 43: (SWANK-REPL::TRACK-PACKAGE #<FUNCTION (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {10130046DB}>) 44: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<FUNCTION (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {101300467B}>) 45: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<FUNCTION (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {101300465B}>) 46: (SWANK-REPL::REPL-EVAL "(define-ks bunny-alert-ks ..) 47: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK-REPL:LISTENER-EVAL "(define-ks bunny-alert-ks ..) 48: (EVAL (SWANK-REPL:LISTENER-EVAL "(define-ks bunny-alert-ks ..) 49: (SWANK:EVAL-FOR-EMACS (SWANK-REPL:LISTENER-EVAL "(define-ks bunny-alert-ks ..) 50: (SWANK::PROCESS-REQUESTS NIL) 51: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 52: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 53: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100B2D802B}>) 54: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/death/quicklisp/local-projects/slime/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) .. 55: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM {100B1AB323}>)) #<FUNCTION (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100B2D804B}>) 56: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {10051B3893}> NIL) 57: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN)) 58: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::RUN)) 59: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN)) 60: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::RUN)) 61: (SB-THREAD::RUN) 62: ("foreign function: call_into_lisp") 63: ("foreign function: funcall1")
Raw
Repaste
Edit
text
default
anonymous
2020.12.23 22:49:12
GBBOPEN-USER> (define-unit-class bunny () (x y)) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (defvar *bunny-class* *) *BUNNY-CLASS* GBBOPEN-USER> (ensure-finalized-class *bunny-class*) #<STANDARD-UNIT-CLASS GBBOPEN-USER::BUNNY> GBBOPEN-USER> (defvar *slot1* (car (last (class-slots *bunny-class*)))) *SLOT1* GBBOPEN-USER> (define-ks bunny-alert-ks :rating 100 :trigger-events ((nonlink-slot-updated-event bunny)) :execution-function 'bunny-alert-ks-function) #<KS BUNNY-ALERT-KS> GBBOPEN-USER> (eq *slot1* (car (last (class-slots *bunny-class*)))) NIL GBBOPEN-USER> (car (last (class-slots *bunny-class*))) #<Nonlink-slot Y> GBBOPEN-USER> (defun bunny-alert-ks-function (ksa) (let ((bunny (sole-trigger-instance-of ksa))) (when (and (slot-boundp bunny 'y) (> (y-of bunny) 10)) (format t "Bunny ~S went too high~%" bunny)))) BUNNY-ALERT-KS-FUNCTION GBBOPEN-USER> (spawn-control-shell-thread) #<SB-THREAD:THREAD "Agenda Shell" RUNNING {10141523A3}> ;; Control shell 1 started GBBOPEN-USER> (make-instance 'bunny :x 5 :y 8) #<BUNNY 1> GBBOPEN-USER> (incf (y-of (find-instance-by-name 1 'bunny))) 9 GBBOPEN-USER> (incf (y-of (find-instance-by-name 1 'bunny))) 10 GBBOPEN-USER> (incf (y-of (find-instance-by-name 1 'bunny))) 11 Bunny #<BUNNY 1> went too high GBBOPEN-USER>
Raw
Repaste
Edit