The Trunk: Kernel-nice.280.mcz

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

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

Name: Kernel-nice.280
Author: nice
Time: 22 October 2009, 2:31:58 am
UUID: fb4786ea-1e65-6449-88c5-b6d62f89657e
Ancestors: Kernel-jcg.279

Refactor #whichClassDefinesClassVar:
The class var name is a Symbol, so
- first test if such a Symbol exists
- second test directly = aSymbol rather than converting asString

=============== Diff against Kernel-jcg.279 ===============

Item was changed:
  ----- Method: Behavior>>whichClassDefinesClassVar: (in category 'queries') -----
  whichClassDefinesClassVar: aString
+ Symbol hasInterned: aString ifTrue: [ :aSymbol |
+ ^self whichSuperclassSatisfies:
- ^self whichSuperclassSatisfies:
  [:aClass |
+ aClass classVarNames anySatisfy: [:each | each = aSymbol]]].
+ ^nil!
- (aClass classVarNames collect: [:each | each asString])
- includes: aString asString]!