Class 在Common Lisp中调用类名上的类分配插槽

Class 在Common Lisp中调用类名上的类分配插槽,class,lisp,common-lisp,clos,meta-object-protocol,Class,Lisp,Common Lisp,Clos,Meta Object Protocol,有没有办法在类的名称而不是实例上调用:class分配的插槽?类似于:(类的类alloc slot名称)LispWorks: CL-USER 6 > (defclass foo () ((bar :allocation :class :initform :baz))) #<STANDARD-CLASS FOO 402005B3CB> CL-USER 7 > (make-instance 'foo) #<FOO 4020240C33> CL-USER 8 &g

有没有办法在类的名称而不是实例上调用:class分配的插槽?类似于:
(类的类alloc slot名称)
LispWorks:

CL-USER 6 > (defclass foo () ((bar :allocation :class :initform :baz)))
#<STANDARD-CLASS FOO 402005B3CB>

CL-USER 7 > (make-instance 'foo)
#<FOO 4020240C33>

CL-USER 8 > (class-prototype (find-class 'foo))
#<FOO 402005EB73>

CL-USER 9 > (slot-value * 'bar)
:BAZ
CL-USER 6>(defclassfoo()((条:分配:类:initform:baz)))
#
CL-USER 7>(生成实例“foo”)
#
CL-USER 8>(类原型(查找类“foo))
#
CL-USER 9>(插槽值*'条)
:BAZ
使用CLOSER-MOP实现便携式MOP功能