[Cl-perec-devel] mapping for set

[Leonid Novikov]

I worked with hu.dwim.perec (live repo from 04.11.2009) and collided
with the following behavior:

HOME> (defpclass* test1 () ((c1 :type string)))
#<PERSISTENT-CLASS TEST1>
HOME> (hu.dwim.perec::mapping-of (nth 4 (class-slots (find-class 'test1))))
#<HU.DWIM.PEREC::MAPPING {10872E01}>
HOME> (defpclass* test2 () ((c2 :type (set test1))))
#<PERSISTENT-CLASS TEST2>
HOME> (hu.dwim.perec::mapping-of (nth 4 (class-slots (find-class 'test2))))
NIL

This is correct?