[pypy-commit] lang-smalltalk storage-allocRemoval: Merged storage branch.

[anton_gulenko]

Author: Anton Gulenko <anton.gulenko at googlemail.com>
Branch: storage-allocRemoval
Changeset: r989:2e3b082dd9a1
Date: 2014-04-03 10:55 +0200
http://bitbucket.org/pypy/lang-smalltalk/changeset/2e3b082dd9a1/

Log:	Merged storage branch.

diff too long, truncating to 2000 out of 4957 lines

diff --git a/images/Squeak4.5-noBitBlt.changes b/images/Squeak4.5-noBitBlt.changes
--- a/images/Squeak4.5-noBitBlt.changes
+++ b/images/Squeak4.5-noBitBlt.changes
@@ -12198,4 +12198,14 @@
 	].
 
 	"self footer."
-	^ self! !

SMarkRunner execute: CPBAStarBenchmark new with: 3
!

SMarkRunner execute: CPBAStarBenchmark new with: 3
!

SMarkRunner execute: CPBAStarBenchmark new with: 3
!

Object subclass: #Benchmarks
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Cross-Platform-Benchmarks'!
!Benchmarks class methodsFor: 'no messages' stamp: 'ag 3/8/2014 23:21'!
runAll: iterations
	
	^ String streamContents: [ :str |
		self allBenchmarks do: [ :bench |
			str nextPutAll:
				(SMarkRunner execute: bench new with: iterations) ] ]! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:21' prior: 49281266!
runAll: iterations
	
	^ String streamContents: [ :str |
		self allBenchmarks do: [ :bench |
			str nextPutAll:
				(SMarkRunner execute: bench new with: iterations) asString ] ]! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:22'!
allBenchmarks
	
	^ {
	CPBAStarBenchmark.
	}! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:26' prior: 49281795!
allBenchmarks
	
	^ {
	CPBAStarBenchmark.
	CPBBinaryTreeBenchmark.
CPBBlowfishSuite.
CPBChameneosBenchmark.
CPBDeltaBlueBenchmark.
CPBMandelbrotBenchmarkSuite.
CPBNBodyBenchmark.
CPBPolymorphyBenchmark.
CPBRichardsBenchmark.
CPBSplayTreeBenchmark.
	}! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:26' prior: 49281938!
allBenchmarks
	
	^ {
	CPBAStarBenchmark.
	CPBBinaryTreeBenchmark.
	CPBBlowfishSuite.
	CPBChameneosBenchmark.
	CPBDeltaBlueBenchmark.
	CPBMandelbrotBenchmarkSuite.
	CPBNBodyBenchmark.
	CPBPolymorphyBenchmark.
	CPBRichardsBenchmark.
	CPBSplayTreeBenchmark.
	}! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:27'!
run: benchmarks iterations: iterations
	
	^ String streamContents: [ :str |
		benchmarks do: [ :bench |
			str cr; nextPutAll:
				(SMarkRunner execute: bench new with: iterations) asString ] ]! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:27' prior: 49281534!
runAll: iterations
	
	^ self run: self allBenchmarks iterations: iterations! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:27'!
runAll
	
	^ self runAll: 5! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:29'!
list
	
	^ String streamContents: [ :str |
		self allBenchmarks do: [ :bench | str cr; nextPutAll: bench name asString ] ]! !

'CPBBinaryTreeBenchmark' indexOf: 'Binary'!

'CPBBinaryTreeBenchmark' includesSubString: 'Binary'!
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:30' prior: 49283190!
list
	
	^ String streamContents: [ :str |
		self allBenchmarkNames do: [ :benchName | str cr; nextPutAll: benchName ] ]! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:31'!
allBenchmarkNames
	
	^ self allBenchmarks collect: [ :bench | bench name asString ]! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:32'!
selectBenchmarks: substring
	
	^ self allBenchmarks select: [ :bench | bench name includesSubString: substring ]! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:35'!
runMatching: substring iterations: iterations
	
	| benchmarks |
	benchmarks := self selectBenchmarks: substring.
	benchmarks ifEmpty: [ 
		^ String streamContents: [ :str |
				str
					nextPutAll: 'No benchmarks matched "';
					nextPutAll: substring;
					nextPutAll: '"';
					cr;
					nextPutAll: 'Available benchmarks:'.
				self allBenchmarkNames do: [ :name | str cr; nextPutAll: name ] ] ].
! !
!Benchmarks class methodsFor: 'as yet unclassified' stamp: 'ag 3/8/2014 23:35' prior: 49284077!
runMatching: substring iterations: iterations
	
	| benchmarks |
	benchmarks := self selectBenchmarks: substring.
	benchmarks ifEmpty: [ 
		^ String streamContents: [ :str |
				str
					nextPutAll: 'No benchmarks matched "';
					nextPutAll: substring;
					nextPutAll: '"';
					cr;
					nextPutAll: 'Available benchmarks:'.
				self allBenchmarkNames do: [ :name | str cr; nextPutAll: name ] ] ].
	^ self run: benchmarks iterations: iterations! !

Benchmarks class organization addCategory: #'category name'!

Benchmarks class organization renameCategory: #'category name' toBe: #cli!
!Benchmarks class methodsFor: 'cli' stamp: 'ag 3/8/2014 23:36' prior: 49283511!
list
	
	^ String streamContents: [ :str |
		self allBenchmarkNames do: [ :benchName | str cr; nextPutAll: benchName ] ]! !

Benchmarks class organization renameCategory: #'as yet unclassified' toBe: #benchmarks!
!Benchmarks class methodsFor: 'benchmarks' stamp: 'ag 3/8/2014 23:31' prior: 49283714!
allBenchmarkNames
	
	^ self allBenchmarks collect: [ :bench | bench name asString ]! !
!Benchmarks class methodsFor: 'benchmarks' stamp: 'ag 3/8/2014 23:26' prior: 49282287!
allBenchmarks
	
	^ {
	CPBAStarBenchmark.
	CPBBinaryTreeBenchmark.
	CPBBlowfishSuite.
	CPBChameneosBenchmark.
	CPBDeltaBlueBenchmark.
	CPBMandelbrotBenchmarkSuite.
	CPBNBodyBenchmark.
	CPBPolymorphyBenchmark.
	CPBRichardsBenchmark.
	CPBSplayTreeBenchmark.
	}! !
!Benchmarks class methodsFor: 'benchmarks' stamp: 'ag 3/8/2014 23:27' prior: 49282628!
run: benchmarks iterations: iterations
	
	^ String streamContents: [ :str |
		benchmarks do: [ :bench |
			str cr; nextPutAll:
				(SMarkRunner execute: bench new with: iterations) asString ] ]! !
!Benchmarks class methodsFor: 'benchmarks' stamp: 'ag 3/8/2014 23:27' prior: 49283080!
runAll
	
	^ self runAll: 5! !
!Benchmarks class methodsFor: 'benchmarks' stamp: 'ag 3/8/2014 23:27' prior: 49282921!
runAll: iterations
	
	^ self run: self allBenchmarks iterations: iterations! !
!Benchmarks class methodsFor: 'benchmarks' stamp: 'ag 3/8/2014 23:35' prior: 49284576!
runMatching: substring iterations: iterations
	
	| benchmarks |
	benchmarks := self selectBenchmarks: substring.
	benchmarks ifEmpty: [ 
		^ String streamContents: [ :str |
				str
					nextPutAll: 'No benchmarks matched "';
					nextPutAll: substring;
					nextPutAll: '"';
					cr;
					nextPutAll: 'Available benchmarks:'.
				self allBenchmarkNames do: [ :name | str cr; nextPutAll: name ] ] ].
	^ self run: benchmarks iterations: iterations! !
!Benchmarks class methodsFor: 'benchmarks' stamp: 'ag 3/8/2014 23:32' prior: 49283881!
selectBenchmarks: substring
	
	^ self allBenchmarks select: [ :bench | bench name includesSubString: substring ]! !

Benchmarks class organization addCategory: #private!
!Benchmarks class methodsFor: 'private' stamp: 'ag 3/8/2014 23:37' prior: 49286064!
run: benchmarks iterations: iterations
	
	^ String streamContents: [ :str |
		benchmarks do: [ :bench |
			str cr; nextPutAll:
				(SMarkRunner execute: bench new with: iterations) asString ] ]! !
!Benchmarks class methodsFor: 'private' stamp: 'ag 3/8/2014 23:37' prior: 49285542!
allBenchmarkNames
	
	^ self allBenchmarks collect: [ :bench | bench name asString ]! !
!Benchmarks class methodsFor: 'private' stamp: 'ag 3/8/2014 23:37' prior: 49287167!
selectBenchmarks: substring
	
	^ self allBenchmarks select: [ :bench | bench name includesSubString: substring ]! !

Benchmarks runMatching: 'Binary' iterations: 3!

Benchmarks runMatching: 'Bin' iterations: 3!

Benchmarks runMatching: 'Bidn' iterations: 3!
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !

Object class removeSelector: #test1polbench:!

Object class removeSelector: #test2polbench:!

Object class removeSelector: #test3polbench:!

Object class removeSelector: #test123polbench:!

Morph class removeSelector: #test1polbench:!

Morph class removeSelector: #test2polbench:!

Morph class removeSelector: #test3polbench:!

Morph class removeSelector: #test123polbench:!

Collection class removeSelector: #test1polbench:!

Collection class removeSelector: #test2polbench:!

Collection class removeSelector: #test3polbench:!

Collection class removeSelector: #test123polbench:!

String class removeSelector: #test1polbench:!

String class removeSelector: #test2polbench:!

String class removeSelector: #test3polbench:!

String class removeSelector: #test123polbench:!

FontSet class removeSelector: #test1polbench:!

FontSet class removeSelector: #test2polbench:!

FontSet class removeSelector: #test3polbench:!

FontSet class removeSelector: #test123polbench:!

Canvas class removeSelector: #test1polbench:!

Canvas class removeSelector: #test2polbench:!

Canvas class removeSelector: #test3polbench:!

Canvas class removeSelector: #test123polbench:!

Stream class removeSelector: #test1polbench:!

Stream class removeSelector: #test2polbench:!

Stream class removeSelector: #test3polbench:!

Stream class removeSelector: #test123polbench:!

Number class removeSelector: #test1polbench:!

Number class removeSelector: #test2polbench:!

Number class removeSelector: #test3polbench:!

Number class removeSelector: #test123polbench:!

Behavior class removeSelector: #test1polbench:!

Behavior class removeSelector: #test2polbench:!

Behavior class removeSelector: #test3polbench:!

Behavior class removeSelector: #test123polbench:!

Error class removeSelector: #test1polbench:!

Error class removeSelector: #test2polbench:!

Error class removeSelector: #test3polbench:!

Error class removeSelector: #test123polbench:!
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !

Object class removeSelector: #test1polbench:!

Object class removeSelector: #test2polbench:!

Object class removeSelector: #test3polbench:!

Object class removeSelector: #test123polbench:!

Morph class removeSelector: #test1polbench:!

Morph class removeSelector: #test2polbench:!

Morph class removeSelector: #test3polbench:!

Morph class removeSelector: #test123polbench:!

Collection class removeSelector: #test1polbench:!

Collection class removeSelector: #test2polbench:!

Collection class removeSelector: #test3polbench:!

Collection class removeSelector: #test123polbench:!

String class removeSelector: #test1polbench:!

String class removeSelector: #test2polbench:!

String class removeSelector: #test3polbench:!

String class removeSelector: #test123polbench:!

FontSet class removeSelector: #test1polbench:!

FontSet class removeSelector: #test2polbench:!

FontSet class removeSelector: #test3polbench:!

FontSet class removeSelector: #test123polbench:!

Canvas class removeSelector: #test1polbench:!

Canvas class removeSelector: #test2polbench:!

Canvas class removeSelector: #test3polbench:!

Canvas class removeSelector: #test123polbench:!

Stream class removeSelector: #test1polbench:!

Stream class removeSelector: #test2polbench:!

Stream class removeSelector: #test3polbench:!

Stream class removeSelector: #test123polbench:!

Number class removeSelector: #test1polbench:!

Number class removeSelector: #test2polbench:!

Number class removeSelector: #test3polbench:!

Number class removeSelector: #test123polbench:!

Behavior class removeSelector: #test1polbench:!

Behavior class removeSelector: #test2polbench:!

Behavior class removeSelector: #test3polbench:!

Behavior class removeSelector: #test123polbench:!

Error class removeSelector: #test1polbench:!

Error class removeSelector: #test2polbench:!

Error class removeSelector: #test3polbench:!

Error class removeSelector: #test123polbench:!
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !

Object class removeSelector: #test1polbench:!

Object class removeSelector: #test2polbench:!

Object class removeSelector: #test3polbench:!

Object class removeSelector: #test123polbench:!

Morph class removeSelector: #test1polbench:!

Morph class removeSelector: #test2polbench:!

Morph class removeSelector: #test3polbench:!

Morph class removeSelector: #test123polbench:!

Collection class removeSelector: #test1polbench:!

Collection class removeSelector: #test2polbench:!

Collection class removeSelector: #test3polbench:!

Collection class removeSelector: #test123polbench:!

String class removeSelector: #test1polbench:!

String class removeSelector: #test2polbench:!

String class removeSelector: #test3polbench:!

String class removeSelector: #test123polbench:!

FontSet class removeSelector: #test1polbench:!

FontSet class removeSelector: #test2polbench:!

FontSet class removeSelector: #test3polbench:!

FontSet class removeSelector: #test123polbench:!

Canvas class removeSelector: #test1polbench:!

Canvas class removeSelector: #test2polbench:!

Canvas class removeSelector: #test3polbench:!

Canvas class removeSelector: #test123polbench:!

Stream class removeSelector: #test1polbench:!

Stream class removeSelector: #test2polbench:!

Stream class removeSelector: #test3polbench:!

Stream class removeSelector: #test123polbench:!

Number class removeSelector: #test1polbench:!

Number class removeSelector: #test2polbench:!

Number class removeSelector: #test3polbench:!

Number class removeSelector: #test123polbench:!

Behavior class removeSelector: #test1polbench:!

Behavior class removeSelector: #test2polbench:!

Behavior class removeSelector: #test3polbench:!

Behavior class removeSelector: #test123polbench:!

Error class removeSelector: #test1polbench:!

Error class removeSelector: #test2polbench:!

Error class removeSelector: #test3polbench:!

Error class removeSelector: #test123polbench:!
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !

Object class removeSelector: #test1polbench:!

Object class removeSelector: #test2polbench:!

Object class removeSelector: #test3polbench:!

Object class removeSelector: #test123polbench:!

Morph class removeSelector: #test1polbench:!

Morph class removeSelector: #test2polbench:!

Morph class removeSelector: #test3polbench:!

Morph class removeSelector: #test123polbench:!

Collection class removeSelector: #test1polbench:!

Collection class removeSelector: #test2polbench:!

Collection class removeSelector: #test3polbench:!

Collection class removeSelector: #test123polbench:!

String class removeSelector: #test1polbench:!

String class removeSelector: #test2polbench:!

String class removeSelector: #test3polbench:!

String class removeSelector: #test123polbench:!

FontSet class removeSelector: #test1polbench:!

FontSet class removeSelector: #test2polbench:!

FontSet class removeSelector: #test3polbench:!

FontSet class removeSelector: #test123polbench:!

Canvas class removeSelector: #test1polbench:!

Canvas class removeSelector: #test2polbench:!

Canvas class removeSelector: #test3polbench:!

Canvas class removeSelector: #test123polbench:!

Stream class removeSelector: #test1polbench:!

Stream class removeSelector: #test2polbench:!

Stream class removeSelector: #test3polbench:!

Stream class removeSelector: #test123polbench:!

Number class removeSelector: #test1polbench:!

Number class removeSelector: #test2polbench:!

Number class removeSelector: #test3polbench:!

Number class removeSelector: #test123polbench:!

Behavior class removeSelector: #test1polbench:!

Behavior class removeSelector: #test2polbench:!

Behavior class removeSelector: #test3polbench:!

Behavior class removeSelector: #test123polbench:!

Error class removeSelector: #test1polbench:!

Error class removeSelector: #test2polbench:!

Error class removeSelector: #test3polbench:!

Error class removeSelector: #test123polbench:!
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test1polbench: i 
^'I am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test2polbench: i 
^'I still am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test3polbench: i 
^'I allways was Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/8/2014 23:39'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !

Object class removeSelector: #test1polbench:!

Object class removeSelector: #test2polbench:!

Object class removeSelector: #test3polbench:!

Object class removeSelector: #test123polbench:!

Morph class removeSelector: #test1polbench:!

Morph class removeSelector: #test2polbench:!

Morph class removeSelector: #test3polbench:!

Morph class removeSelector: #test123polbench:!

Collection class removeSelector: #test1polbench:!

Collection class removeSelector: #test2polbench:!

Collection class removeSelector: #test3polbench:!

Collection class removeSelector: #test123polbench:!

String class removeSelector: #test1polbench:!

String class removeSelector: #test2polbench:!

String class removeSelector: #test3polbench:!

String class removeSelector: #test123polbench:!

FontSet class removeSelector: #test1polbench:!

FontSet class removeSelector: #test2polbench:!

FontSet class removeSelector: #test3polbench:!

FontSet class removeSelector: #test123polbench:!

Canvas class removeSelector: #test1polbench:!

Canvas class removeSelector: #test2polbench:!

Canvas class removeSelector: #test3polbench:!

Canvas class removeSelector: #test123polbench:!

Stream class removeSelector: #test1polbench:!

Stream class removeSelector: #test2polbench:!

Stream class removeSelector: #test3polbench:!

Stream class removeSelector: #test123polbench:!

Number class removeSelector: #test1polbench:!

Number class removeSelector: #test2polbench:!

Number class removeSelector: #test3polbench:!

Number class removeSelector: #test123polbench:!

Behavior class removeSelector: #test1polbench:!

Behavior class removeSelector: #test2polbench:!

Behavior class removeSelector: #test3polbench:!

Behavior class removeSelector: #test123polbench:!

Error class removeSelector: #test1polbench:!

Error class removeSelector: #test2polbench:!

Error class removeSelector: #test3polbench:!

Error class removeSelector: #test123polbench:!

Benchmarks runAll
!
!Benchmarks class methodsFor: 'private' stamp: 'ag 3/8/2014 23:48' prior: 49287421!
run: benchmarks iterations: iterations
	
	^ String streamContents: [ :str |
		benchmarks do: [ :bench |
			str nextPutAll:
				(SMarkRunner execute: bench new with: iterations) asString ] ]! !

----SNAPSHOT----{8 March 2014 . 11:49:02 pm} Squeak4.5-noBitBlt.image priorSource: 15724710!

----STARTUP----{11 March 2014 . 10:13:40 am} as C:\Dev\lang-smalltalk\images\Squeak4.5-noBitBlt.image!

!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !

Object class removeSelector: #test1polbench:!

Object class removeSelector: #test2polbench:!

Object class removeSelector: #test3polbench:!

Object class removeSelector: #test123polbench:!

Morph class removeSelector: #test1polbench:!

Morph class removeSelector: #test2polbench:!

Morph class removeSelector: #test3polbench:!

Morph class removeSelector: #test123polbench:!

Collection class removeSelector: #test1polbench:!

Collection class removeSelector: #test2polbench:!

Collection class removeSelector: #test3polbench:!

Collection class removeSelector: #test123polbench:!

String class removeSelector: #test1polbench:!

String class removeSelector: #test2polbench:!

String class removeSelector: #test3polbench:!

String class removeSelector: #test123polbench:!

FontSet class removeSelector: #test1polbench:!

FontSet class removeSelector: #test2polbench:!

FontSet class removeSelector: #test3polbench:!

FontSet class removeSelector: #test123polbench:!

Canvas class removeSelector: #test1polbench:!

Canvas class removeSelector: #test2polbench:!

Canvas class removeSelector: #test3polbench:!

Canvas class removeSelector: #test123polbench:!

Stream class removeSelector: #test1polbench:!

Stream class removeSelector: #test2polbench:!

Stream class removeSelector: #test3polbench:!

Stream class removeSelector: #test123polbench:!

Number class removeSelector: #test1polbench:!

Number class removeSelector: #test2polbench:!

Number class removeSelector: #test3polbench:!

Number class removeSelector: #test123polbench:!

Behavior class removeSelector: #test1polbench:!

Behavior class removeSelector: #test2polbench:!

Behavior class removeSelector: #test3polbench:!

Behavior class removeSelector: #test123polbench:!

Error class removeSelector: #test1polbench:!

Error class removeSelector: #test2polbench:!

Error class removeSelector: #test3polbench:!

Error class removeSelector: #test123polbench:!
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !

Object class removeSelector: #test1polbench:!

Object class removeSelector: #test2polbench:!

Object class removeSelector: #test3polbench:!

Object class removeSelector: #test123polbench:!

Morph class removeSelector: #test1polbench:!

Morph class removeSelector: #test2polbench:!

Morph class removeSelector: #test3polbench:!

Morph class removeSelector: #test123polbench:!

Collection class removeSelector: #test1polbench:!

Collection class removeSelector: #test2polbench:!

Collection class removeSelector: #test3polbench:!

Collection class removeSelector: #test123polbench:!

String class removeSelector: #test1polbench:!

String class removeSelector: #test2polbench:!

String class removeSelector: #test3polbench:!

String class removeSelector: #test123polbench:!

FontSet class removeSelector: #test1polbench:!

FontSet class removeSelector: #test2polbench:!

FontSet class removeSelector: #test3polbench:!

FontSet class removeSelector: #test123polbench:!

Canvas class removeSelector: #test1polbench:!

Canvas class removeSelector: #test2polbench:!

Canvas class removeSelector: #test3polbench:!

Canvas class removeSelector: #test123polbench:!

Stream class removeSelector: #test1polbench:!

Stream class removeSelector: #test2polbench:!

Stream class removeSelector: #test3polbench:!

Stream class removeSelector: #test123polbench:!

Number class removeSelector: #test1polbench:!

Number class removeSelector: #test2polbench:!

Number class removeSelector: #test3polbench:!

Number class removeSelector: #test123polbench:!

Behavior class removeSelector: #test1polbench:!

Behavior class removeSelector: #test2polbench:!

Behavior class removeSelector: #test3polbench:!

Behavior class removeSelector: #test123polbench:!

Error class removeSelector: #test1polbench:!

Error class removeSelector: #test2polbench:!

Error class removeSelector: #test3polbench:!

Error class removeSelector: #test123polbench:!
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Object class', i asString! !
!Object class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Morph class', i asString! !
!Morph class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Collection class', i asString! !
!Collection class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was String class', i asString! !
!String class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was FontSet class', i asString! !
!FontSet class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Canvas class', i asString! !
!Canvas class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Stream class', i asString! !
!Stream class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Number class', i asString! !
!Number class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Behavior class', i asString! !
!Behavior class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test1polbench: i 
^'I am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test2polbench: i 
^'I still am Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test3polbench: i 
^'I allways was Error class', i asString! !
!Error class methodsFor: 'as yet unclassified' stamp: 'test 3/11/2014 10:14'!
test123polbench: i 
self test1polbench: i.
self test2polbench: i.
self test3polbench: i.! !

Object class removeSelector: #test1polbench:!

Object class removeSelector: #test2polbench:!

Object class removeSelector: #test3polbench:!

Object class removeSelector: #test123polbench:!

Morph class removeSelector: #test1polbench:!

Morph class removeSelector: #test2polbench:!

Morph class removeSelector: #test3polbench:!

Morph class removeSelector: #test123polbench:!

Collection class removeSelector: #test1polbench:!

Collection class removeSelector: #test2polbench:!

Collection class removeSelector: #test3polbench:!

Collection class removeSelector: #test123polbench:!

String class removeSelector: #test1polbench:!

String class removeSelector: #test2polbench:!

String class removeSelector: #test3polbench:!

String class removeSelector: #test123polbench:!

FontSet class removeSelector: #test1polbench:!

FontSet class removeSelector: #test2polbench:!

FontSet class removeSelector: #test3polbench:!

FontSet class removeSelector: #test123polbench:!

Canvas class removeSelector: #test1polbench:!

Canvas class removeSelector: #test2polbench:!

Canvas class removeSelector: #test3polbench:!

Canvas class removeSelector: #test123polbench:!

Stream class removeSelector: #test1polbench:!

Stream class removeSelector: #test2polbench:!

Stream class removeSelector: #test3polbench:!

Stream class removeSelector: #test123polbench:!

Number class removeSelector: #test1polbench:!

Number class removeSelector: #test2polbench:!

Number class removeSelector: #test3polbench:!

Number class removeSelector: #test123polbench:!

Behavior class removeSelector: #test1polbench:!

Behavior class removeSelector: #test2polbench:!

Behavior class removeSelector: #test3polbench:!

Behavior class removeSelector: #test123polbench:!

Error class removeSelector: #test1polbench:!

Error class removeSelector: #test2polbench:!

Error class removeSelector: #test3polbench:!