I see that a big earthquake hit Chile : http://www.alertnet.org/thenews/newsdesk/LDE61Q02O.htm I hope everything is ok with you. On Fri, Feb 26, 2010 at 6:58 PM, Alexandre Bergel <alexandre@bergel.eu> wrote:
issue #2085
Replace the method PackageOrganizer>>packageOfClass: aClass ifNone: errorBlock by -=-=-=-=-= packageOfClass: aClass ifNone: errorBlock     | classCategory |     classCategory := aClass category.     packages at: classCategory ifPresent: [:v | ^ v].
    (classCategory includes: $-)         ifTrue: [ packages at: (classCategory copyUpTo: $-) ifPresent: [:v | ^ v] ].
    ^ self packages detect: [:ea | ea includesClass: aClass] ifNone: errorBlock -=-=-=-=-=
Before this enhancement: [100 timesRepeat: [Object package]] timeToRun => 141
After the fix: => 2
Easy thing to do.
Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel  http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel  http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
-- Serge Stinckwich UMI UMMISCO 209 (IRD/UPMC), Hanoi, Vietnam Smalltalkers do: [:it | All with: Class, (And love: it)] http://doesnotunderstand.org/