Tcl Source Code

If we run this code which has <i>mixins in a superclass of the class of interest</i>:
<dl><dd><pre>
oo::class create C {
    method c {} {}
}

oo::class create D {
    mixin C
    method d {} {}
    unexport destroy
}

oo::class create E {
    superclass D
    method e {} {}
}

puts [info class methods E -all]
E create e1
puts [info object methods e1 -all]
</pre></dl>
We see that both of the introspectors find <tt>d</tt> and <tt>e</tt> but not <tt>c</tt>. This is not correct; the introspection should find all three.

The traversal of the mixin links was in the wrong place relative to the tail-recursive unrolling inside <tt>AddClassMethodNames</tt> inside tclOOCall.c; the mixin would have been found if the class into which it had been mixed had two (or more) ordinary superclasses. Rearranging the code and adding a separate mechanism for determining how to avoid excess work seems to fix it.