'From Squeak3.1alpha of 5 February 2001 [latest update: #4089] on 28 May 2001 at 2:04:17 pm'! "Change Set: fasterONE Date: 26 May 2001 Author: Bob Arning Speed up #asSymbol for Characters (part 1 of 2)" ! String variableByteSubclass: #Symbol instanceVariableNames: '' classVariableNames: 'OneCharacterSymbols SymbolTable ' poolDictionaries: '' category: 'Collections-Text'! !Symbol class methodsFor: 'class initialization' stamp: 'raa 5/26/2001 09:50'! initialize | quickLookup | "Symbol initialize" SymbolTable _ WeakSet withAll: self allInstances. OneCharacterSymbols _ nil. quickLookup _ (1 to: 256) collect: [ :i | (i - 1) asCharacter asSymbol]. OneCharacterSymbols _ quickLookup.! ! !Symbol class methodsFor: 'instance creation' stamp: 'raa 5/26/2001 09:54'! internCharacter: aCharacter OneCharacterSymbols ifNil: [^self intern: aCharacter asString]. ^OneCharacterSymbols at: aCharacter asciiValue + 1 ! ! Symbol initialize!