<div dir="ltr"><div>So we have a strange ancestry now: ...-->eem.880-->eem.881-->eem.882-->eem.881</div><div>The former 881 has</div><div>UUID: 012691b6-410a-4e9a-9c64-97b5abfdba49</div><div>The later has<br>
UUID: e9cf9901-53d5-4b5c-ab37-88beb605d007</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Le jeu. 12 mars 2020 à 03:01, <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> a écrit :<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Eliot Miranda uploaded a new version of Collections to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Collections-eem.881.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/Collections-eem.881.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Collections-eem.881<br>
Author: eem<br>
Time: 11 March 2020, 7:01:23.310819 pm<br>
UUID: e9cf9901-53d5-4b5c-ab37-88beb605d007<br>
Ancestors: Collections-eem.882<br>
<br>
Include the Array become primitives in the ModificationForbidden framework.<br>
<br>
=============== Diff against Collections-eem.882 ===============<br>
<br>
Item was changed:<br>
  ----- Method: Symbol class>>intern: (in category 'instance creation') -----<br>
  intern: aStringOrSymbol <br>
<br>
        | originalNewSymbols |<br>
        originalNewSymbols := NewSymbols.<br>
        ^(self lookup: aStringOrSymbol) ifNil:[<br>
+               | aClass aSymbol newNewSymbols |<br>
-               | aSymbol newNewSymbols |<br>
                aStringOrSymbol isSymbol ifTrue:[<br>
                        aSymbol := aStringOrSymbol.<br>
                ] ifFalse:[<br>
+                       aClass := aStringOrSymbol isOctetString ifTrue:[ByteSymbol] ifFalse:[WideSymbol].<br>
+                       aSymbol := aClass new: aStringOrSymbol size.<br>
-                       aSymbol := (aStringOrSymbol isOctetString ifTrue:[ByteSymbol] ifFalse:[WideSymbol])<br>
-                                                       new: aStringOrSymbol size.<br>
                        aSymbol string: aStringOrSymbol.<br>
-                       aSymbol beReadOnlyObject.<br>
                ].<br>
                newNewSymbols := originalNewSymbols copyWith: aSymbol.<br>
                originalNewSymbols == NewSymbols<br>
                        ifTrue: [<br>
                                NewSymbols := newNewSymbols.<br>
                                newNewSymbols size > 1000 ifTrue: [ self condenseNewSymbols ].<br>
                                aSymbol ]<br>
                        ifFalse: [<br>
                                "Some other process has modified the symbols. Try again."<br>
                                self intern: aStringOrSymbol ] ]!<br>
<br>
Item was changed:<br>
+ (PackageInfo named: 'Collections') postscript: 'Character initializeClassificationTable.<br>
+ HashedCollection rehashAll.'!<br>
- (PackageInfo named: 'Collections') postscript: '"below, add code to be run after the loading of this package"<br>
- <br>
- "Make all Symbols read-only at the VM level"<br>
- Symbol allSubInstancesDo: [:s| s beReadOnlyObject]'!<br>
<br>
<br>
</blockquote></div>