Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.423.mcz

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

Name: System-ul.423
Author: ul
Time: 28 February 2011, 12:05:19.782 pm
UUID: 5334bfde-1537-fa4a-8491-4219f54632ce
Ancestors: System-ul.422

- moved all class and trait access logic from SmalltalkImage to SystemDictionary
- simplified a few methods in SystemDictionary

=============== Diff against System-ul.422 ===============

Item was changed:
  ----- Method: SmalltalkImage>>allClasses (in category 'classes and traits') -----
  allClasses  
  	"Return all the class defined in the system"
  
+ 	^globals allClasses!
- 	^Array streamContents:[:s| self allClassesDo:[:aClass| s nextPut: aClass]].!

Item was changed:
  ----- Method: SmalltalkImage>>allClassesAndTraits (in category 'classes and traits') -----
  allClassesAndTraits
  	"Return all the classes and traits defined in the system"
  
+ 	^globals allClassesAndTraits!
- 	^Array streamContents:[:s| self allClassesAndTraitsDo:[:each| s nextPut: each]].!

Item was changed:
  ----- Method: SmalltalkImage>>allClassesAndTraitsDo: (in category 'classes and traits') -----
  allClassesAndTraitsDo: aBlock
  	"Evaluate the argument, aBlock, for each class and trait in the system."
  
+ 	globals allClassesAndTraitsDo: aBlock!
- 	self allClassesDo: aBlock.
- 	self allTraitsDo: aBlock.
- !

Item was changed:
  ----- Method: SmalltalkImage>>allClassesDo: (in category 'classes and traits') -----
  allClassesDo: aBlock
  	"Evaluate the argument, aBlock, for each class in the system."
  
+ 	globals allClassesDo: aBlock!
- 	^globals allClassesDo: aBlock!

Item was changed:
  ----- Method: SmalltalkImage>>allTraits (in category 'classes and traits') -----
  allTraits
  	"Return all traits defined in the system"
  
+ 	^globals allTraits!
- 	^Array streamContents:[:s| self allTraitsDo:[:aTrait| s nextPut: aTrait]].!

Item was changed:
  ----- Method: SmalltalkImage>>allTraitsDo: (in category 'classes and traits') -----
  allTraitsDo: aBlock
  	"Evaluate the argument, aBlock, for each trait in the system."
  
+ 	globals allTraitsDo: aBlock!
- 	^globals allTraitsDo: aBlock!

Item was changed:
  ----- Method: SmalltalkImage>>classNames (in category 'classes and traits') -----
  classNames
  	"Answer a collection of all class names in the system."
  
+ 	^globals classNames!
- 	^self allClasses collect:[:aClass| aClass name].!

Item was changed:
  ----- Method: SmalltalkImage>>traitNames (in category 'classes and traits') -----
  traitNames
  	"Answer a SortedCollection of all traits (not including class-traits) names."
  
+ 	^globals traitNames!
- 	^self allTraits collect:[:aTrait| aTrait name].!

Item was changed:
  ----- Method: SystemDictionary>>allClassesAndTraits (in category 'classes and traits') -----
  allClassesAndTraits
  	"Return all the classes and traits defined in the Smalltalk SystemDictionary"
  
+ 	^Array streamContents: [ :stream |
+ 		self allClassesAndTraitsDo: [ :each | stream nextPut: each ] ]!
- 	^ self classNames , self traitNames collect: [:each | self at: each]!

Item was changed:
  ----- Method: SystemDictionary>>allClassesAndTraitsDo: (in category 'classes and traits') -----
  allClassesAndTraitsDo: aBlock
+ 	
+ 	self
+ 		allClassesDo: aBlock;
+ 		allTraitsDo: aBlock!
- 	^self allClassesAndTraits do: aBlock!

Item was changed:
  ----- Method: SystemDictionary>>allClassesDo: (in category 'classes and traits') -----
  allClassesDo: aBlock
  	"Evaluate the argument, aBlock, for each class in the system."
  
+ 	self classNames do: [ :name |
+ 		aBlock value: (self at: name) ]!
- 	(self classNames collect: [:name | self at: name]) do: aBlock!

Item was changed:
  ----- Method: SystemDictionary>>allTraitsDo: (in category 'classes and traits') -----
  allTraitsDo: aBlock
  	"Evaluate the argument, aBlock, for each trait in the system."
  
+ 	self traitNames do: [ :name |
+ 		aBlock value: (self at: name) ]!
- 	(self traitNames collect: [:name | self at: name]) do: aBlock!

Item was changed:
  ----- Method: SystemDictionary>>classAndTraitNames (in category 'classes and traits') -----
  classAndTraitNames
  	"Answer a sorted collection of all class and trait (not including class-traits) names. The performance of this algorithm is O(n) if the classNames are already cached, otherwise O(n*log(n)) where n is self size."
  
  	| classNames traitNames result temporary |
  	classNames := self classNames.
+ 	traitNames := self traitNames ifEmpty: [ ^classNames ].
- 	traitNames := self traitNames.
- 	traitNames ifEmpty: [^classNames].
  	temporary := Array new: classNames size + traitNames size.
  	result := temporary shallowCopy.
  	temporary
  		replaceFrom: 1
  		to: classNames size
  		with: classNames
  		startingAt: 1;
  		replaceFrom: classNames size + 1
  		to: temporary size
  		with: traitNames
  		startingAt: 1;
  		mergeFirst: 1
  		middle: classNames size
  		last: temporary size
  		into: result
  		by: nil.
  	^result!