<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>