-class AlphaEntityComparator
- super Comparator
- fun nameof(a: COMPARED): String
- do
- if a isa MGroup then
- return a.name
- else if a isa ModulePath then
- return a.name
- else
- abort
- end
- end
- redef fun compare(a,b)
- do
- return nameof(a) <=> nameof(b)
- end
-end
-