[Sbcl-devel] About metaobjects and defclass

[Makarov A. <ale...@ma...>]

Hello!

I defined metaclass and add in it some slot.

CL-USER> (defclass test-metaclass (standard-class)
                    ((my-slot :initarg :my-slot :reader my-slot-of)))
#<STANDARD-CLASS TEST-METACLASS>

CL-USER> (defmethod sb-mop:validate-superclass ((class test-metaclass)

(superclass standard-class)) T)
#<STANDARD-METHOD SB-MOP:VALIDATE-SUPERCLASS (TEST-METACLASS
STANDARD-CLASS) {100390BE41}>

CL-USER> (defclass test () ()
                   (:metaclass test-metaclass)
                   (:my-slot 'test))
#<TEST-METACLASS TEST>

Trying to get value of my-slot:

CL-USER> (my-slot-of (find-class 'test))
('TEST)

Why value of slot "my-slot" wrapped in list?
Maybe value of (my-slot-of (find-class 'test)) probably 'TEST, not
('TEST), isn't it?