Tcl Source Code

If we run this code which has mixins in a superclass of the class of interest:

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]

The traversal of the mixin links was in the wrong place relative to the tail-recursive unrolling inside AddClassMethodNames 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.