On 30 nov. 2009, at 16:49, Nicolas Cellier wrote:

> Just the full source code would do:
>
> lastStoredRun
>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
> #testA...etc...


Can you be a bit more precise? I feel concerned about this, it's part  
of something we did with Alex.

>
> Nicolas
>
> 2009/11/30 Stéphane Ducasse <[email protected]>:
>> thanks can you let us knw the exact sequence your did?
>>
>> Stef
>>
>> On Nov 30, 2009, at 8:30 PM, [email protected] wrote:
>>
>>> I got a recent dev-image and ran some tests (all CollectionTests  
>>> if this matter) and attempted to store the result.
>>>
>>> 30 November 2009 5:26:40 pm
>>>
>>> VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest  
>>> update: #7179]
>>> Image: PharoCore1.0rc1 [Latest update: #10498]
>>>
>>> SecurityManager state:
>>> Restricted: false
>>> FileAccess: true
>>> SocketAccess: true
>>> Working Dir E:\Pharo
>>> Trusted Dir E:\Pharo\Cesar S. Rabak
>>> Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus  
>>> documentos\My Squeak
>>>
>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>>       Receiver: nil
>>>       Arguments and temporary variables:
>>>               aMessage:       < 0
>>>               exception:      MessageNotUnderstood: receiver of  
>>> "<" is nil
>>>               resumeValue:    nil
>>>       Receiver's instance variables:
>>> nil
>>>
>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>>       Receiver: {an EncoderForV3PlusClosures}
>>>       Arguments and temporary variables:
>>>               literalIndex:   nil
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               scopeTable:     a Dictionary('category'->{category}  
>>> 'classPool'->{classPool} 'envir...etc...
>>>               nTemps:         0
>>>               supered:        false
>>>               requestor:      nil
>>>               class:  StringTest class
>>>               selector:       #lastStoredRun
>>>               literalStream:  a WriteStream {#Dictionary- 
>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}  
>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary- 
>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>               litSet:         a LiteralDictionary(size 302)
>>>               sourceRanges:   a Dictionary(size 309)
>>>               globalSourceRanges:     an OrderedCollection 
>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>               addedSelectorAndMethodClassLiterals:    false
>>>               stream:         {an EncoderForV3PlusClosures}
>>>               position:       0
>>>               rootNode:       lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add:  
>>> #testAs...etc...
>>>               blockExtentsToLocals:   nil
>>>
>>> EncoderForV3PlusClosures(BytecodeEncoder) 
>>> >>sizeOpcodeSelector:withArguments:
>>>       Receiver: {an EncoderForV3PlusClosures}
>>>       Arguments and temporary variables:
>>>               genSelector:    #genPushLiteral:
>>>               args:   #(nil)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               scopeTable:     a Dictionary('category'->{category}  
>>> 'classPool'->{classPool} 'envir...etc...
>>>               nTemps:         0
>>>               supered:        false
>>>               requestor:      nil
>>>               class:  StringTest class
>>>               selector:       #lastStoredRun
>>>               literalStream:  a WriteStream {#Dictionary- 
>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}  
>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary- 
>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>               litSet:         a LiteralDictionary(size 302)
>>>               sourceRanges:   a Dictionary(size 309)
>>>               globalSourceRanges:     an OrderedCollection 
>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>               addedSelectorAndMethodClassLiterals:    false
>>>               stream:         {an EncoderForV3PlusClosures}
>>>               position:       0
>>>               rootNode:       lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add:  
>>> #testAs...etc...
>>>               blockExtentsToLocals:   nil
>>>
>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>>       Receiver: {an EncoderForV3PlusClosures}
>>>       Arguments and temporary variables:
>>>               literalIndex:   nil
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               scopeTable:     a Dictionary('category'->{category}  
>>> 'classPool'->{classPool} 'envir...etc...
>>>               nTemps:         0
>>>               supered:        false
>>>               requestor:      nil
>>>               class:  StringTest class
>>>               selector:       #lastStoredRun
>>>               literalStream:  a WriteStream {#Dictionary- 
>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}  
>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary- 
>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>               litSet:         a LiteralDictionary(size 302)
>>>               sourceRanges:   a Dictionary(size 309)
>>>               globalSourceRanges:     an OrderedCollection 
>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>               addedSelectorAndMethodClassLiterals:    false
>>>               stream:         {an EncoderForV3PlusClosures}
>>>               position:       0
>>>               rootNode:       lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add:  
>>> #testAs...etc...
>>>               blockExtentsToLocals:   nil
>>>
>>> LiteralNode>>sizeCodeForValue:
>>>       Receiver: {#testWithWithWithWith}
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               key:    #testWithWithWithWith
>>>               code:   -3
>>>               index:  nil
>>>
>>> [] in MessageNode>>sizeCodeForValue:
>>>       Receiver: { add: #testWithWithWithWith}
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       nil
>>>               selector:       {add:}
>>>               precedence:     3
>>>               special:        0
>>>               arguments:      an OrderedCollection 
>>> ({#testWithWithWithWith})
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> OrderedCollection>>collect:
>>>       Receiver: an OrderedCollection({#testWithWithWithWith})
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> MessageNode>>sizeCodeForValue:
>>>               newCollection:  an OrderedCollection()
>>>               index:  3
>>>       Receiver's instance variables:
>>>               array:  #(nil nil {#testWithWithWithWith} nil nil  
>>> nil nil nil nil nil)
>>>               firstIndex:     3
>>>               lastIndex:      3
>>>
>>> MessageNode>>sizeCodeForValue:
>>>       Receiver: { add: #testWithWithWithWith}
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       nil
>>>               selector:       {add:}
>>>               precedence:     3
>>>               special:        0
>>>               arguments:      an OrderedCollection 
>>> ({#testWithWithWithWith})
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> [] in CascadeNode>>sizeCodeForValue:
>>>       Receiver: {Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #testAsSortedCollection;
>>>        add: #tes...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        { add: #testWithWithWithWith}
>>>               size:   {an EncoderForV3PlusClosures}
>>>               aMessage:       #(1506)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Set new}
>>>               messages:       an OrderedCollection({ add:  
>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>
>>> OrderedCollection>>do:
>>>       Receiver: an OrderedCollection({ add: #testAsArray} { add:  
>>> #testAsSet} { add: #testAsSortedCollectio...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> CascadeNode>>sizeCodeForValue:
>>>               index:  252
>>>       Receiver's instance variables:
>>>               array:  an Array({ add: #testAsArray} { add:  
>>> #testAsSet} { add: #testAsSortedCol...etc...
>>>               firstIndex:     1
>>>               lastIndex:      294
>>>
>>> CascadeNode>>sizeCodeForValue:
>>>       Receiver: {Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #testAsSortedCollection;
>>>        add: #tes...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>               size:   #(1506)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Set new}
>>>               messages:       an OrderedCollection({ add:  
>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>
>>> [] in MessageNode>>sizeCodeForValue:
>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>                add: #testAsSet;
>>>                add: #testAsSortedCollectio...etc...
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {#passed}
>>>               selector:       {->}
>>>               precedence:     2
>>>               special:        0
>>>               arguments:      an Array({Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #test...etc...
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> Array(SequenceableCollection)>>collect:
>>>       Receiver: an Array({Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #testAsSortedCollection;
>>>        ...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> MessageNode>>sizeCodeForValue:
>>>               newCollection:  #(nil)
>>>               index:  1
>>>               indexLimiT:     1
>>>       Receiver's instance variables:
>>> an Array({Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #testAsSortedCollection;
>>>        ...etc...
>>>
>>> MessageNode>>sizeCodeForValue:
>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>                add: #testAsSet;
>>>                add: #testAsSortedCollectio...etc...
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {#passed}
>>>               selector:       {->}
>>>               precedence:     2
>>>               special:        0
>>>               arguments:      an Array({Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #test...etc...
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> [] in MessageNode>>sizeCodeForValue:
>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: #testAsSortedC...etc...
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       nil
>>>               selector:       {add:}
>>>               precedence:     3
>>>               special:        0
>>>               arguments:      an OrderedCollection({#passed ->  
>>> (Set new add: #testAsArray;
>>>                add:...etc...
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> OrderedCollection>>collect:
>>>       Receiver: an OrderedCollection({#passed -> (Set new add:  
>>> #testAsArray;
>>>                add: #testAsSet;
>>>                add: #...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> MessageNode>>sizeCodeForValue:
>>>               newCollection:  an OrderedCollection()
>>>               index:  3
>>>       Receiver's instance variables:
>>>               array:  an Array(nil nil {#passed -> (Set new add:  
>>> #testAsArray;
>>>                add: #testAs...etc...
>>>               firstIndex:     3
>>>               lastIndex:      3
>>>
>>> MessageNode>>sizeCodeForValue:
>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: #testAsSortedC...etc...
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       nil
>>>               selector:       {add:}
>>>               precedence:     3
>>>               special:        0
>>>               arguments:      an OrderedCollection({#passed ->  
>>> (Set new add: #testAsArray;
>>>                add:...etc...
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> [] in CascadeNode>>sizeCodeForValue:
>>>       Receiver: {Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: ...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        { add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                       ...etc...
>>>               size:   {an EncoderForV3PlusClosures}
>>>               aMessage:       #(10)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Dictionary new}
>>>               messages:       an OrderedCollection({ add: #passed - 
>>> > (Set new add: #testAsArray;
>>>               ...etc...
>>>
>>> OrderedCollection>>do:
>>>       Receiver: an OrderedCollection({ add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                        add: #testAsSet;
>>>               ...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> CascadeNode>>sizeCodeForValue:
>>>               index:  3
>>>       Receiver's instance variables:
>>>               array:  an Array(nil nil { add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                        add: ...etc...
>>>               firstIndex:     3
>>>               lastIndex:      7
>>>
>>> CascadeNode>>sizeCodeForValue:
>>>       Receiver: {Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: ...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>               size:   #(10)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Dictionary new}
>>>               messages:       an OrderedCollection({ add: #passed - 
>>> > (Set new add: #testAsArray;
>>>               ...etc...
>>>
>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>>       Receiver: {Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: ...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Dictionary new}
>>>               messages:       an OrderedCollection({ add: #passed - 
>>> > (Set new add: #testAsArray;
>>>               ...etc...
>>>
>>> ReturnNode>>sizeCodeForValue:
>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               expr:   {Dictionary new add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                        add: #tes...etc...
>>>
>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               expr:   {Dictionary new add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                        add: #tes...etc...
>>>
>>> BlockNode>>sizeCodeForEvaluatedValue:
>>>       Receiver: {[^ Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                                add: #testAsSet;
>>>                                ...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               arguments:      #()
>>>               statements:     an OrderedCollection({^ Dictionary  
>>> new add: #passed -> (Set new add...etc...
>>>               returns:        true
>>>               nArgsNode:      nil
>>>               size:   nil
>>>               remoteCopyNode:         nil
>>>               temporaries:    an OrderedCollection()
>>>               optimized:      false
>>>               actualScopeIfOptimized:         nil
>>>               blockExtent:    (0 to: 2)
>>>               remoteTempNode:         nil
>>>               copiedValues:   nil
>>>               closureCreationNode:    nil
>>>               startOfLastStatement:   16
>>>
>>> BytecodeAgnosticMethodNode>>generate:
>>>       Receiver: lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>>                                add: #tes...etc...
>>>       Arguments and temporary variables:
>>>               trailer:        #(0 0 0 0)
>>>               primErrNode:    nil
>>>               blkSize:        nil
>>>               nLits:  nil
>>>               literals:       nil
>>>               stack:  nil
>>>               method:         nil
>>>               locals:         nil
>>>               lit:    nil
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               selectorOrFalse:        #lastStoredRun
>>>               precedence:     1
>>>               arguments:      #()
>>>               block:  {[^ Dictionary new add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                                add:...etc...
>>>               primitive:      0
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>               temporaries:    #()
>>>               properties:     an AdditionalMethodState
>>>               sourceText:     'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...
>>>               locationCounter:        3
>>>               localsPool:     an IdentitySet()
>>>
>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>>       Receiver: CompiledMethodWithNode
>>>       Arguments and temporary variables:
>>>               aMethodNode:    lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add: #tes...etc...
>>>               bytes:  #(0 0 0 0)
>>>       Receiver's instance variables:
>>>               superclass:     Object
>>>               methodDict:     a MethodDictionary(#method->a  
>>> CompiledMethod(650: CompiledMethodWit...etc...
>>>               format:         134
>>>               instanceVariables:      #('node' 'method')
>>>               organization:   ('accessing' method node selector)
>>> ('private' method: node:)
>>>
>>>               subclasses:     nil
>>>               name:   #CompiledMethodWithNode
>>>               classPool:      nil
>>>               sharedPools:    nil
>>>               environment:    Smalltalk
>>>               category:       #'Compiler-Support'
>>>               traitComposition:       nil
>>>               localSelectors:         nil
>>>
>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               code:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               category:       'history'
>>>               requestor:      nil
>>>               bytes:  #(0 0 0 0)
>>>               failBlock:      [closure] in Metaclass 
>>> (ClassDescription)>>compile:classified:withSta...etc...
>>>               methodNode:     lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add: #test...etc...
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> Metaclass(ClassDescription) 
>>> >>compile:classified:withStamp:notifying:logSource:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               text:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               category:       'history'
>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>               requestor:      nil
>>>               logSource:      true
>>>               methodAndNode:  nil
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               text:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               category:       'history'
>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>               requestor:      nil
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               text:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               category:       'history'
>>>               requestor:      nil
>>>               stamp:  'CesarRabak 11/30/2009 17:26'
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> Metaclass(ClassDescription)>>compile:classified:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               code:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               heading:        'history'
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>>       Receiver: StringTest
>>>       Arguments and temporary variables:
>>>
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest
>>>               methodDict:     a MethodDictionary(size 321)
>>>               format:         158
>>>               instanceVariables:      #('string' 'emptyString'  
>>> 'elementInNonEmpty' 'notIn' 'subcol...etc...
>>>               organization:   ('initialization' setUp)
>>> ('requirements' aValue anIndex anotherEl...etc...
>>>               subclasses:     nil
>>>               name:   #StringTest
>>>               classPool:      nil
>>>               sharedPools:    nil
>>>               environment:    Smalltalk
>>>               category:       #'CollectionsTests-Text'
>>>               traitComposition:       TIncludesTest + TCloneTest +  
>>> TCopyTest + TSetArithmetic + TIt...etc...
>>>               localSelectors:         an IdentitySet(#elementNotIn  
>>> #firstIndex #replacementCollection...etc...
>>>               history:        a Dictionary(#errors->a Set()  
>>> #failures->a Set() #passed->a Set(#testA...etc...
>>>
>>> [] in TestRunner>>storeResultIntoTestCases
>>>       Receiver: a TestRunner
>>>       Arguments and temporary variables:
>>>               testCaseCls:    StringTest
>>>       Receiver's instance variables:
>>>               categories:     #(#'AST-Tests'  
>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>               categoriesSelected:     a Set(#'CollectionsTests- 
>>> Support' #'CollectionsTests-Weak' ...etc...
>>>               classes:        {Base64MimeConverterTest.  
>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>               classIndex:     0
>>>               classesSelected:        a Set(TextAndTextStreamTest  
>>> WideStringTest WriteStreamTest Ide...etc...
>>>               failedList:     #()
>>>               failedSelected:         nil
>>>               errorList:      #()
>>>               errorSelected:  nil
>>>               lastUpdate:     3437054762
>>>               result:         4978 run, 4978 passes, 0 expected  
>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>               previousRun:    nil
>>>
>>> Set>>do:
>>>       Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest  
>>> WeakKeyToCollectionDictionaryTest ArrayT...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> TestRunner>>storeResultIntoTestCases
>>>               index:  364
>>>               each:   StringTest
>>>               indexLimiT:     6638
>>>       Receiver's instance variables:
>>>               tally:  49
>>>               array:  {nil. nil. nil. nil. nil. nil. nil. nil.  
>>> nil. nil. nil. nil. nil. nil. n...etc...
>>>
>>> TestRunner>>storeResultIntoTestCases
>>>       Receiver: a TestRunner
>>>       Arguments and temporary variables:
>>>
>>>       Receiver's instance variables:
>>>               categories:     #(#'AST-Tests'  
>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>               categoriesSelected:     a Set(#'CollectionsTests- 
>>> Support' #'CollectionsTests-Weak' ...etc...
>>>               classes:        {Base64MimeConverterTest.  
>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>               classIndex:     0
>>>               classesSelected:        a Set(TextAndTextStreamTest  
>>> WideStringTest WriteStreamTest Ide...etc...
>>>               failedList:     #()
>>>               failedSelected:         nil
>>>               errorList:      #()
>>>               errorSelected:  nil
>>>               lastUpdate:     3437054762
>>>               result:         4978 run, 4978 passes, 0 expected  
>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>               previousRun:    nil
>>>
>>> TestRunner>>perform:orSendTo:
>>>       Receiver: a TestRunner
>>>       Arguments and temporary variables:
>>>               selector:       #storeResultIntoTestCases
>>>               otherTarget:    a PluggableTextMorphPlus(3170)
>>>       Receiver's instance variables:
>>>               categories:     #(#'AST-Tests'  
>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>               categoriesSelected:     a Set(#'CollectionsTests- 
>>> Support' #'CollectionsTests-Weak' ...etc...
>>>               classes:        {Base64MimeConverterTest.  
>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>               classIndex:     0
>>>               classesSelected:        a Set(TextAndTextStreamTest  
>>> WideStringTest WriteStreamTest Ide...etc...
>>>               failedList:     #()
>>>               failedSelected:         nil
>>>               errorList:      #()
>>>               errorSelected:  nil
>>>               lastUpdate:     3437054762
>>>               result:         4978 run, 4978 passes, 0 expected  
>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>               previousRun:    nil
>>>
>>> [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>>       Receiver: a ToggleMenuItemMorph(2690)'Store result as  
>>> progress reference'
>>>       Arguments and temporary variables:
>>>               evt:    [...@67 mouseUp 21933765 nil]
>>>               selArgCount:    #(2)
>>>       Receiver's instance variables:
>>>               bounds:         6...@54 corner: 8...@70
>>>               owner:  a MenuMorph(2400)
>>>               submorphs:      #()
>>>               fullBounds:     6...@54 corner: 8...@70
>>>               color:  Color black
>>>               extension:      a MorphExtension (2845) [other:   
>>> (layoutProperties -> a LayoutProper...etc...
>>>               font:   a LogicalFont
>>> familyName: DejaVu Sans
>>> emphasis: nil
>>> pointSize: 10
>>> rea...etc...
>>>               emphasis:       0
>>>               contents:       'Store result as progress reference'
>>>               hasFocus:       false
>>>               isEnabled:      true
>>>               subMenu:        nil
>>>               isSelected:     false
>>>               target:         a TestRunner
>>>               selector:       #perform:orSendTo:
>>>               arguments:      an Array(#storeResultIntoTestCases a  
>>> PluggableTextMorphPlus(3170))
>>>               icon:   nil
>>>               getStateSelector:       nil
>>>               enablementSelector:     nil
>>>               keyText:        nil
>>>
>>> BlockClosure>>ensure:
>>>       Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph) 
>>> >>invokeWithEvent:
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in CursorWithMask(Cursor) 
>>> >>showWhile:
>>>               returnValue:    nil
>>>               b:      nil
>>>       Receiver's instance variables:
>>>               outerContext:   ToggleMenuItemMorph(MenuItemMorph) 
>>> >>invokeWithEvent:
>>>               startpc:        136
>>>               numArgs:        0
>>>
>>> CursorWithMask(Cursor)>>showWhile:
>>>       Receiver: ((CursorWithMask
>>>       extent: 1...@16
>>>       depth: 1
>>>       fromArray: #(
>>>               2r0
>>>               2r10000000000000000000000...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in ToggleMenuItemMorph 
>>> (MenuItemMorph)>>invokeWithEvent:
>>>               oldcursor:      ((CursorWithMask
>>>       extent: 1...@16
>>>       depth: 1
>>>       fromArray: #(
>>>               2r0
>>>               2r1...etc...
>>>       Receiver's instance variables:
>>>               bits:   a Bitmap of length 16
>>>               width:  16
>>>               height:         16
>>>               depth:  1
>>>               offset:         -...@-1
>>>               maskForm:       Form(16x16x1)
>>>
>>>
>>> --- The full stack ---
>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>> EncoderForV3PlusClosures(BytecodeEncoder) 
>>> >>sizeOpcodeSelector:withArguments:
>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>> LiteralNode>>sizeCodeForValue:
>>> [] in MessageNode>>sizeCodeForValue:
>>> OrderedCollection>>collect:
>>> MessageNode>>sizeCodeForValue:
>>> [] in CascadeNode>>sizeCodeForValue:
>>> OrderedCollection>>do:
>>> CascadeNode>>sizeCodeForValue:
>>> [] in MessageNode>>sizeCodeForValue:
>>> Array(SequenceableCollection)>>collect:
>>> MessageNode>>sizeCodeForValue:
>>> [] in MessageNode>>sizeCodeForValue:
>>> OrderedCollection>>collect:
>>> MessageNode>>sizeCodeForValue:
>>> [] in CascadeNode>>sizeCodeForValue:
>>> OrderedCollection>>do:
>>> CascadeNode>>sizeCodeForValue:
>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>> ReturnNode>>sizeCodeForValue:
>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>> BlockNode>>sizeCodeForEvaluatedValue:
>>> BytecodeAgnosticMethodNode>>generate:
>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>> Metaclass(ClassDescription) 
>>> >>compile:classified:withStamp:notifying:logSource:
>>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>> Metaclass(ClassDescription)>>compile:classified:
>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>> [] in TestRunner>>storeResultIntoTestCases
>>> Set>>do:
>>> TestRunner>>storeResultIntoTestCases
>>> TestRunner>>perform:orSendTo:
>>> [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>> BlockClosure>>ensure:
>>> CursorWithMask(Cursor)>>showWhile:
>>> - - - - - - - - - - - - - - -
>>>                       - - - - - - - - - - - - - - - - - -
>>> ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>> ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
>>> ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
>>> MouseButtonEvent>>sentTo:
>>> ToggleMenuItemMorph(Morph)>>handleEvent:
>>> MorphicEventDispatcher>>dispatchDefault:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> ToggleMenuItemMorph(Morph)>>processEvent:using:
>>> MorphicEventDispatcher>>dispatchDefault:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> MenuMorph(Morph)>>processEvent:using:
>>> MenuMorph(Morph)>>processEvent:
>>> MenuMorph>>handleFocusEvent:
>>> [] in HandMorph>>sendFocusEvent:to:clear:
>>> [] in PasteUpMorph>>becomeActiveDuring:
>>> BlockClosure>>on:do:
>>> PasteUpMorph>>becomeActiveDuring:
>>> HandMorph>>sendFocusEvent:to:clear:
>>> HandMorph>>sendEvent:focus:clear:
>>> HandMorph>>sendMouseEvent:
>>> HandMorph>>handleEvent:
>>> HandMorph>>processEvents
>>> [] in WorldState>>doOneCycleNowFor:
>>> Array(SequenceableCollection)>>do:
>>> WorldState>>handsDo:
>>> WorldState>>doOneCycleNowFor:
>>> WorldState>>doOneCycleFor:
>>> WorldState>>doOneSubCycleFor:
>>> PasteUpMorph>>doOneSubCycle
>>> MenuMorph>>invokeModalAt:in:allowKeyboard:
>>> MenuMorph>>invokeModal:
>>> MenuMorph>>invokeModal
>>> PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity:
>>> TextMorphForEditView>>mouseDown:
>>> TextMorphForEditView(Morph)>>handleMouseDown:
>>> MouseButtonEvent>>sentTo:
>>> TextMorphForEditView(Morph)>>handleEvent:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> TextMorphForEditView(Morph)>>processEvent:using:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> TransformMorph(Morph)>>processEvent:using:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> PluggableTextMorphPlus(Morph)>>processEvent:using:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> PluggableStandardWindow(Morph)>>processEvent:using:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> PasteUpMorph(Morph)>>processEvent:using:
>>> PasteUpMorph>>processEvent:using:
>>> PasteUpMorph(Morph)>>processEvent:
>>> HandMorph>>sendEvent:focus:clear:
>>> HandMorph>>sendMouseEvent:
>>> HandMorph>>handleEvent:
>>> HandMorph>>processEvents
>>> [] in WorldState>>doOneCycleNowFor:
>>> Array(SequenceableCollection)>>do:
>>> WorldState>>handsDo:
>>> WorldState>>doOneCycleNowFor:
>>> WorldState>>doOneCycleFor:
>>> PasteUpMorph>>doOneCycle
>>> [] in Project class>>spawnNewProcess
>>> [] in BlockClosure>>newProcess
>>>
>>> --
>>> Cesar Rabak
>>>
>>> _______________________________________________
>>> Pharo-project mailing list
>>> [email protected]
>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>
>>
>> _______________________________________________
>> Pharo-project mailing list
>> [email protected]
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>
>
> _______________________________________________
> Pharo-project mailing list
> [email protected]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

--
  Simon




_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Reply via email to