Andreas Raab uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ul.331.mcz

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

Name: Monticello-ul.331
Author: ul
Time: 4 November 2009, 10:55:34 am
UUID: d5d3402e-d4f0-4c46-8a5f-0a81f2d790ae
Ancestors: Monticello-nice.330

- faster hashing with String >> #hashWithInitialHash:. Load  Collections-ul.179 before this package.

=============== Diff against Monticello-nice.330 ===============

Item was changed:
  ----- Method: MCClassTraitDefinition>>hash (in category 'accessing') -----
  hash
+ 
  	| hash |
+ 	hash := baseTrait hashWithInitialHash: 0.
+ 	hash := self classTraitCompositionString hashWithInitialHash: hash.
- 	hash := String stringHash: baseTrait initialHash: 0.
- 	hash := String stringHash: self classTraitCompositionString initialHash: hash.
  	^hash
  !

Item was changed:
  ----- Method: MCClassDefinition>>hash (in category 'comparing') -----
  hash
+ 
  	| hash |
+ 	hash := name hashWithInitialHash: 0.
+ 	hash := superclassName hashWithInitialHash: hash.
+ 	hash := self traitCompositionString hashWithInitialHash: hash.
+ 	hash := self classTraitComposition asString hashWithInitialHash: hash.
+ 	hash := (category ifNil: ['']) hashWithInitialHash: hash.
+ 	hash := type hashWithInitialHash: hash.
+ 	variables do: [ :v |
+ 		hash := v name hashWithInitialHash: hash ].
+ 	^hash!
- 	hash := String stringHash: name initialHash: 0.
- 	hash := String stringHash: superclassName initialHash: hash.
- 	hash := String stringHash: self traitCompositionString initialHash: hash.
- 	hash := String stringHash: self classTraitComposition asString initialHash: hash.
- 	hash := String stringHash: (category ifNil: ['']) initialHash: hash.
- 	hash := String stringHash: type initialHash: hash.
- 	variables do: [
- 		:v |
- 		hash := String stringHash: v name initialHash: hash.
- 	].
- 	^ hash!

Item was changed:
  ----- Method: MCTraitDefinition>>hash (in category 'comparing') -----
  hash
+ 
  	| hash |
+ 	hash := name hashWithInitialHash: 0.
+ 	hash := self traitCompositionString hashWithInitialHash: hash.
+ 	hash := (category ifNil: ['']) hashWithInitialHash: hash.
+ 	^hash
- 	hash := String stringHash: name initialHash: 0.
- 	hash := String stringHash: self traitCompositionString initialHash: hash.
- 	hash := String stringHash: (category ifNil: ['']) initialHash: hash.
- 	^ hash
  !

Item was changed:
  ----- Method: MCMethodDefinition>>hash (in category 'comparing') -----
  hash
  	| hash |
+ 	hash := classIsMeta asString hashWithInitialHash: 0.
+ 	hash := source hashWithInitialHash: hash.
+ 	hash := category hashWithInitialHash: hash.
+ 	hash := className hashWithInitialHash: hash.
- 	hash := String stringHash: classIsMeta asString initialHash: 0.
- 	hash := String stringHash: source initialHash: hash.
- 	hash := String stringHash: category initialHash: hash.
- 	hash := String stringHash: className initialHash: hash.
  	^ hash!