Re: [Sbcl-devel] SBCL CLOS cache issue?

[Levente <lev...@gm...>]

Christophe Rhodes <csr21 <at> cam.ac.uk> writes:

> their wrapper slot.  Another useful piece of information would be for
> you to iterate over all the classes and find those which have a
> wrapper slot location offset which is noticeably different from that
> of standard classes.

Is it what you requested?

DT> (slot-value (find-slot 'standard-class 'sb-pcl::wrapper) 'sb-pcl::location)
14

DT> (slot-value (find-slot 'test-meta-class 'sb-pcl::wrapper) 'sb-pcl::location)
15

DT> (class-slots (find-class 'standard-class))
(#<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::%TYPE>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::SOURCE>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::PLIST>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::NAME>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::CLASS-EQ-SPECIALIZER>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::DIRECT-SUPERCLASSES>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::DIRECT-SUBCLASSES>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::DIRECT-METHODS>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::%DOCUMENTATION>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::FINALIZED-P>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::%CLASS-PRECEDENCE-LIST>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::CPL-AVAILABLE-P>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::CAN-PRECEDE-LIST>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::INCOMPATIBLE-SUPERCLASS-LIST>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::WRAPPER>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::PROTOTYPE>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::DIRECT-SLOTS>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::SLOTS>)

DT> (class-slots (find-class 'test-meta-class))
(#<STANDARD-EFFECTIVE-SLOT-DEFINITION TEST-SLOT>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::%TYPE>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::SOURCE>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::PLIST>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::NAME>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::CLASS-EQ-SPECIALIZER>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::DIRECT-SUPERCLASSES>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::DIRECT-SUBCLASSES>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::DIRECT-METHODS>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::%DOCUMENTATION>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::FINALIZED-P>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::%CLASS-PRECEDENCE-LIST>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::CPL-AVAILABLE-P>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::CAN-PRECEDE-LIST>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::INCOMPATIBLE-SUPERCLASS-LIST>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::WRAPPER>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::PROTOTYPE>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::DIRECT-SLOTS>
 #<STANDARD-EFFECTIVE-SLOT-DEFINITION SB-PCL::SLOTS>)