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