A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-kph.587.mcz
==================== Summary ====================
Name: Monticello.impl-kph.587 Author: kph Time: 25 October 2008, 2:12:50 am UUID: ced6cae1-2e90-4267-ab48-2efd83684b98 Ancestors: Monticello.impl-kph.586
changed senders of and:and:and: to improve portability
=============== Diff against Monticello.impl-kph.586 ===============
Item was changed: ----- Method: MCClassDefinition>>= (in category 'visiting') ----- = aDefinition + super = aDefinition ifFalse: [ ^ false ]. + superclassName = aDefinition superclassName ifFalse: [ ^ false ]. + self traitCompositionString = aDefinition traitCompositionString ifFalse: [ ^ false ]. + self classTraitCompositionString = aDefinition classTraitCompositionString ifFalse: [ ^ false ]. + category = aDefinition category ifFalse: [ ^ false ]. + type = aDefinition type ifFalse: [ ^false ]. + (variables = aDefinition variables + or: [self sortedVariables = aDefinition sortedVariables]) ifFalse: [ ^false ]. + comment = aDefinition comment ifFalse: [ ^ false ]. + + ^ true - ^((super = aDefinition) - and: [superclassName = aDefinition superclassName] - and: [self traitCompositionString = aDefinition traitCompositionString] - and: [self classTraitCompositionString = aDefinition classTraitCompositionString]) - and: [category = aDefinition category] - and: [type = aDefinition type] - and: [variables = aDefinition variables - or: [self sortedVariables = aDefinition sortedVariables]] - and: [comment = aDefinition comment] !
Item was changed: ----- Method: MCTraitDefinition>>= (in category 'visiting') ----- = aDefinition self flag: #traits. "Ugly we harcoded the super superclass method. We will have to refactor the definition hierarchy" + (self isRevisionOf: aDefinition) ifFalse: [ ^ false ]. + self traitCompositionString = aDefinition traitCompositionString ifFalse: [ ^ false ]. + category = aDefinition category ifFalse: [ ^ false ]. + comment = aDefinition comment ifFalse: [ ^ false ]. + + ^ true! - ^ (self isRevisionOf: aDefinition) - and: [self traitCompositionString = aDefinition traitCompositionString] - and: [category = aDefinition category] - and: [comment = aDefinition comment]!
Item was changed: ----- Method: MCMethodDefinition>>= (in category 'comparing') ----- = aDefinition + super = aDefinition ifFalse: [ ^ false ]. + aDefinition source = self source ifFalse: [ ^ false ]. + aDefinition category = self category ifFalse: [ ^ false ]. + aDefinition timeStamp = self timeStamp ifFalse: [ ^ false ]. + + ^ true! - ^(super = aDefinition) - and: [aDefinition source = self source] - and: [aDefinition category = self category] - and: [aDefinition timeStamp = self timeStamp]!