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