'From Pharo1.4a of ''16 June 2011'' [Latest update: #14296] on 30 January 2012 at 8:31 pm'! !MCFileBasedRepository methodsFor: 'as yet unclassified' stamp: 'CamilloBruni 1/26/2012 19:49'! includesFileNamed: aString "slow default implementation" ^ self allFileNames includes: aString! ! !MCFileBasedRepository methodsFor: 'as yet unclassified' stamp: 'CamilloBruni 1/26/2012 19:50'! notifyList (self includesFileNamed: 'notify') ifFalse: [^ #()]. ^ self readStreamForFileNamed: 'notify' do: [:s | s upToEnd lines]! ! !MCDirectoryRepository methodsFor: 'as yet unclassified' stamp: 'CamilloBruni 1/30/2012 20:30'! includesFileNamed: aString "HACK: speed up the cache hits" ^ FileStream isAFileNamed: (directory fullPathFor: aString)! ! !MCCacheRepository methodsFor: 'as yet unclassified' stamp: 'CamilloBruni 1/26/2012 19:50'! basicStoreVersion: aVersion (aVersion isCacheable and: [self includesFileNamed: aVersion fileName]) ifFalse: [super basicStoreVersion: aVersion] ! !