The Trunk: Monticello-cmm.654.mcz

Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.654.mcz

==================== Summary ====================

Name: Monticello-cmm.654
Author: cmm
Time: 22 November 2016, 5:24:12.638405 pm
UUID: 7351af57-f33b-4254-9a8a-29284f44a174
Ancestors: Monticello-cmm.653

- Substitute the faster #addNewElement: for #includes: + #add:.
- Recover MCAncestry>>#clearAncestors.
- #copyWithTrimmedAncestry leaves the most recent to support MC diffing function.

=============== Diff against Monticello-cmm.653 ===============

Item was changed:
  ----- Method: MCAncestry>>allAncestorsDo:visitedAncestors: (in category 'ancestry') -----
  allAncestorsDo: aBlock visitedAncestors: visitedAncestors
-
  self ancestors do: [ :each |
+ (visitedAncestors addNewElement: each) ifTrue: [
- (visitedAncestors includes: each) ifFalse: [
- visitedAncestors add: each.
  aBlock value: each.
  each allAncestorsDo: aBlock visitedAncestors: visitedAncestors ] ]!

Item was added:
+ ----- Method: MCAncestry>>clearAncestors (in category 'copying') -----
+ clearAncestors
+ ancestors := Array empty!

Item was added:
+ ----- Method: MCAncestry>>clearStepChildren (in category 'copying') -----
+ clearStepChildren
+ stepChildren := Array empty!

Item was added:
+ ----- Method: MCAncestry>>postCopyWithTrimmedAncestry (in category 'copying') -----
+ postCopyWithTrimmedAncestry
+ ancestors ifNotNil:
+ [ ancestors := ancestors collect:
+ [ : each | each copy
+ clearAncestors ;
+ clearStepChildren ;
+ yourself ] ].
+ stepChildren ifNotNil:
+ [ stepChildren := stepChildren collect:
+ [ : each | each copy
+ clearAncestors ;
+ clearStepChildren ;
+ yourself ] ]!

Item was removed:
- ----- Method: MCVersionInfo>>postCopyWithTrimmedAncestry (in category 'copying') -----
- postCopyWithTrimmedAncestry
- ancestors := Array empty!