[Pkg] Monticello Public: Monticello.impl-kph.587.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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