RB methodDefiningTemporary: aString in: aClass ignore has a strange logic

[Ducasse]

First it iterates in all the subclasses? and this is really unclear in the method name

methodDefiningTemporary: aString in: aClass ignore: aBlock

	| searcher method |
	searcher := OCParseTreeSearcher new.
	method := nil. "Shut-up the warning"
	searcher matches: aString do: [ :aNode :answer | ^ method ].
	aClass withAllSubclasses do: [ :class |
		class selectors do: [ :each |
			(aBlock value: class value: each) ifFalse: [
				| parseTree |
				method := class methodFor: each.
				parseTree := class parseTreeForSelector: each.
				parseTree ifNotNil: [ searcher executeTree: parseTree ] ] ] ].
	^ nil

Second users seems to cancel the subclass navigation

definesTempVar: aString in: aClass ignoreClass: subclass

	| condition |
	condition := self new.
	condition
		block: [
			| method |
			method := self
				          methodDefiningTemporary: aString
				          in: aClass
				          ignore: [ :class :aSelector |
				          class includesClass: subclass ].
			method ifNotNil: [
				condition errorMacro:
					method printString , ' defines variable ' , aString ].
			method isNotNil ]
		errorString:
			aClass printString
			, ' <1?:does not >define<1?s:> temporary variable ' , aString.
	^ condition

Third what is aClass includesClass: subclass.
It looks like a bad name

includesClass: aRBClass
	| currentClass |
	currentClass := self.
	[currentClass isNotNil and: [currentClass ~= aRBClass]]
		whileTrue: [currentClass := currentClass superclass].
	^currentClass = aRBClass