from preamble:

"Change Set:		duplicatedmethods
Date:			28 January 2002
Author:			stephane ducasse

The following script identify duplicated method in a hierarchy chain. 
The changeset removed the unnecessary methods.

ProtoObject allSubclassesDo:[:class |
         class selectors do:[:selector |
                 | currentMethod superMethod |
                 currentMethod _ class compiledMethodAt:selector.
                 superMethod _ class superclass lookupSelector:selector.

                 currentMethod = superMethod
                         ifTrue:[Transcript
                                         show:class;
                                         show:'>>';
                                         show:selector;
                                         cr.
							]
         ]
]"!
-------------- next part --------------
A non-text attachment was scrubbed...
Name: duplicatedmethods.cs.gz
Type: application/octet-stream
Size: 2021 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20020128/f3c52569/duplicatedmethods.cs.obj