[Pkg] Monticello Public: Monticello.impl-kph.586.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.586.mcz

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

Name: Monticello.impl-kph.586
Author: kph
Time: 25 October 2008, 1:35:28 am
UUID: 5b026f5f-8725-49b9-9a87-c406d0f0b481
Ancestors: Monticello.impl-mtf.585

improved performance of the Orphanage

=============== Diff against Monticello.impl-mtf.585 ===============

Item was changed:
  ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'as yet unclassified') -----
  commonPrefix
  	| stream |
  	categories isEmpty ifTrue: [^ ''].
  	
  	stream := String new writeStream.
+ 	categories first keysAndValuesDo:
+ 		[:i :c |
- 	categories first withIndexDo:
- 		[:c :i|
  		categories do:
  			[:ea |
  			(ea at: i ifAbsent: []) = c ifFalse: [^ stream contents]].
  		stream nextPut: c].
  	^ stream contents!

Item was changed:
  ----- Method: MCMethodDefinition>>isPartOfPackage:or: (in category 'testing') -----
  isPartOfPackage: aPackageInfo or: orphanage
  
  	| myOrphanedClassDefiniton |
  	 
  	(aPackageInfo isYourClassExtension: self category) ifTrue: [ ^ true ].
  	
+ 	myOrphanedClassDefiniton := orphanage orphans
+ 				detect: [ :c | c isClassDefinition and: [ c className = self className ] ] ifNone: [ ^ false ].
- 	myOrphanedClassDefiniton := orphanage orphanClasses 
- 				detect: [ :c | c className = self className ] ifNone: [ ^ false ].
  	
  	^ aPackageInfo includesSystemCategory: myOrphanedClassDefiniton category
  	
  	!

Item was changed:
  ----- Method: MCOrphanage>>orphanClasses (in category 'accessing') -----
  orphanClasses
  
+ 	^ self orphans asOrderedCollection select: [ :o | o isClassDefinition ].
+ 	
+  !
- 	^ self orphans select: [ :o | o isClassDefinition ].!