The Trunk: Kernel-nice.274.mcz

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

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

Name: Kernel-nice.274
Author: nice
Time: 19 October 2009, 11:43:28 am
UUID: e0d13094-6ba6-9a48-8499-d9506f2b1d29
Ancestors: Kernel-nice.273

use #fasterKeys

My guess is that ClassDescription >> #organization and #classVariablesString should be traitified, so I did not publish my changes.
Though I got no warning, no indication of trait, no nothing...
I wonder how to work in a traitified image without trait aware tools...

=============== Diff against Kernel-nice.273 ===============

Item was changed:
  ----- Method: ClassBuilder class>>cleanupClassHierarchyFor: (in category 'cleanup obsolete classes') -----
  cleanupClassHierarchyFor: aClassDescription
 
  | myName mySuperclass |
  mySuperclass := aClassDescription superclass.
  (self isReallyObsolete: aClassDescription) ifTrue: [
 
  "Remove class >>>from SystemDictionary if it is obsolete"
  myName := aClassDescription name asString.
+ Smalltalk fasterKeys do: [:each |
- Smalltalk keys asArray do: [:each |
  (each asString = myName and: [(Smalltalk at: each) == aClassDescription])
  ifTrue: [Smalltalk removeKey: each]].
 
  "Make class officially obsolete if it is not"
  (aClassDescription name asString beginsWith: 'AnObsolete')
  ifFalse: [aClassDescription obsolete].
 
  aClassDescription isObsolete
  ifFalse: [self error: 'Something wrong!!'].
 
  "Add class to obsoleteSubclasses of its superclass"
  mySuperclass
  ifNil: [self error: 'Obsolete subclasses of nil cannot be stored'].
  (mySuperclass obsoleteSubclasses includes: aClassDescription)
  ifFalse: [mySuperclass addObsoleteSubclass: aClassDescription].
  ] ifFalse:[
  "check if superclass has aClassDescription in its obsolete subclasses"
  mySuperclass ifNil:[mySuperclass := Class]. "nil subclasses"
  mySuperclass removeObsoleteSubclass: aClassDescription.
  ].
  "And remove its obsolete subclasses if not actual superclass"
  aClassDescription obsoleteSubclasses do:[:obs|
  obs superclass == aClassDescription ifFalse:[
  aClassDescription removeObsoleteSubclass: obs]].
  !

Item was changed:
  ----- Method: Object>>removeActionsSatisfying: (in category 'events-removing') -----
  removeActionsSatisfying: aBlock
 
+ self actionMap fasterKeys do:
- self actionMap keys do:
  [:eachEventSelector |
  self
      removeActionsSatisfying: aBlock
  forEvent: eachEventSelector
  ]!

Item was changed:
  ----- Method: Class>>fileOutPool:onFileStream: (in category 'fileIn/Out') -----
  fileOutPool: aPool onFileStream: aFileStream
  | aPoolName aValue |
  (aPool  isKindOf: SharedPool class) ifTrue:[^self notify: 'we do not fileout SharedPool type shared pools for now'].
  aPoolName := self environment keyAtIdentityValue: aPool.
  Transcript cr; show: aPoolName.
  aFileStream nextPutAll: 'Transcript show: ''' , aPoolName , '''; cr!!'; cr.
  aFileStream nextPutAll: 'Smalltalk at: #' , aPoolName , ' put: Dictionary new!!'; cr.
+ aPool fasterKeys sort do: [ :aKey |
- aPool keys asSortedCollection do: [ :aKey |
  aValue := aPool at: aKey.
  aFileStream nextPutAll: aPoolName , ' at: #''' , aKey asString , '''', ' put:  '.
  (aValue isKindOf: Number)
  ifTrue: [aValue printOn: aFileStream]
  ifFalse: [aFileStream nextPutAll: '('.
  aValue printOn: aFileStream.
  aFileStream nextPutAll: ')'].
  aFileStream nextPutAll: '!!'; cr].
  aFileStream cr!

Item was changed:
  ----- Method: Class>>declare: (in category 'initialize-release') -----
  declare: varString
  "Declare class variables common to all instances. Answer whether
  recompilation is advisable."
 
  | newVars conflicts |
  newVars :=
  (Scanner new scanFieldNames: varString)
  collect: [:x | x asSymbol].
  newVars do:
  [:var | var first canBeGlobalVarInitial
  ifFalse: [self error: var, ' class variable name should be capitalized; proceed to include anyway.']].
  conflicts := false.
  classPool == nil
+ ifFalse: [(classPool fasterKeys reject: [:x | newVars includes: x]) do:
- ifFalse: [(classPool keys reject: [:x | newVars includes: x]) do:
  [:var | self removeClassVarName: var]].
  (newVars reject: [:var | self classPool includesKey: var])
  do: [:var | "adding"
  "check if new vars defined elsewhere"
  (self bindingOf: var) notNil
  ifTrue:
  [self error: var , ' is defined elsewhere'.
  conflicts := true]].
  newVars size > 0
  ifTrue:
  [classPool := self classPool.
  "in case it was nil"
  newVars do: [:var | classPool declare: var from: Undeclared]].
  ^conflicts!