'From Cuis 2.3 of 22 March 2010 [latest update: #472] on 29 March 2010 at 10:50:33 pm'!

!CompiledMethod methodsFor: 'testing' stamp: 'jmv 3/29/2010 22:41'!
isInstalled
	self methodClass ifNotNil:
		[ :class |
		self selector ifNotNil:
			[ :selector |
			^self == (class compiledMethodAt: selector ifAbsent: nil)]].
	^false! !


!CompiledMethod class methodsFor: 'services' stamp: 'jmv 3/29/2010 22:45'!
unboundMethods
	^self allInstances reject: [ :m | m isInstalled or: [ m selector asSymbol isDoIt ]]! !


!SystemDictionary methodsFor: 'class names' stamp: 'jmv 3/29/2010 22:37'!
classNames
	"Answer a sorted collection of all class names."
	| names |
	cachedClassNames ifNil: [
		names _ IdentitySet new: self size.
		self do: 
			[:cl | (cl isInMemory and: [(cl isKindOf: Class) and: [(cl name beginsWith: 'AnObsolete') not]])
				ifTrue: [names add: cl name]].
		cachedClassNames _ names asArray sort].
	^ cachedClassNames! !

