Nicolas Cellier uploaded a new version of Traits to project The Trunk:
http://source.squeak.org/trunk/Traits-nice.237.mcz

==================== Summary ====================

Name: Traits-nice.237
Author: nice
Time: 20 October 2009, 9:50:34 am
UUID: 53b4311b-7ab7-4f8a-bd01-7320dc813f66
Ancestors: Traits-nice.236

Track selectors usage, use #asSet where due

=============== Diff against Traits-nice.236 ===============

Item was changed:
  ----- Method: TCompilingBehavior>>selectors (in category 'accessing method dictionary') -----
  selectors
+ 	"Answer a collection of all the message selectors specified in the receiver's 
- 	"Answer a Set of all the message selectors specified in the receiver's 
  	method dictionary."
  
  	^ self methodDict keys!

Item was changed:
  ----- Method: TPureBehavior>>ensureLocalSelectors (in category 'traits') -----
  ensureLocalSelectors
  	"Ensures that the instance variable localSelectors is effectively used to maintain
  	the set of local selectors.
  	This method must be called before any non-local selectors are added to the
  	method dictionary!!"
  
  	self basicLocalSelectors isNil 
+ 		ifTrue: [self basicLocalSelectors: self selectors asSet]!
- 		ifTrue: [self basicLocalSelectors: self selectors]!

Item was changed:
  ----- Method: TCompilingBehavior>>crossReference (in category 'user interface') -----
  crossReference
  	"Answer an Array of arrays of size 2 whose first element is a message selector in the receiver's method dictionary and whose second element is a set of all message selectors in the method dictionary whose methods send a message with that selector. Subclasses are not included."
  
+ 	^self selectors asArray sort collect: [:x | Array
- 	^self selectors asSortedCollection asArray collect: [:x | 		Array 
  			with: (String with: Character cr), x 
  			with: (self whichSelectorsReferTo: x)]
  
  	"Point crossReference."!