This fixes it. FWIW, here is the test as it fails previously.<div>Thanks!</div><div>-Alan<br><div><br></div><div><div>CL-USER> (defclass a () )</div><div>#<STANDARD-CLASS A {AECB15}></div><div>CL-USER> (defclass b (a) )</div>
<div>#<STANDARD-CLASS B {96DEEC}></div><div>CL-USER> (defclass b (a) )</div><div>#<STANDARD-CLASS B {96DEEC}></div><div>CL-USER> (mop::class-direct-subclasses (find-class 'a))</div><div>(#<STANDARD-CLASS B {96DEEC}> #<STANDARD-CLASS B {96DEEC}>)</div>
<div><br></div><div><br></div><div><br></div><div class="gmail_quote">On Mon, Jan 18, 2010 at 3:15 PM, Erik Huelsmann <span dir="ltr"><<a href="mailto:ehuels@gmail.com">ehuels@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Hi Alan,<br>
<div class="im"><br>
On Mon, Jan 18, 2010 at 1:54 AM, Alan Ruttenberg<br>
<<a href="mailto:alanruttenberg@gmail.com">alanruttenberg@gmail.com</a>> wrote:<br>
> It should be a set according to <a href="http://www.alu.org/mop/dictionary.html" target="_blank">http://www.alu.org/mop/dictionary.html</a><br>
<br>
</div>r12391 *could* fix that. I didn't check, but I did see code<br>
unconditionally adding classes to the list of subclasses, so I changed<br>
a PUSH to a PUSHNEW.<br>
<br>
Could you verify that it fixes it? If not, could you provide some<br>
sample code on how to get to the situation you have? (Like 3 or 4<br>
class definitions, empty ones)?<br>
<br>
<br>
Hope that helps!<br>
<br>
<br>
Bye,<br>
<font color="#888888"><br>
Erik.<br>
</font></blockquote></div><br></div></div>