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>