Introduce #rawAllUsing:

This method does the same as #allUsing: but does not return a MooseGroup that might be long to compute. Instead it returns a classic Pharo collection.

This will be useful to improve the query model

src/Moose-Core/MooseAbstractGroup.class.st

@@ -107,11 +107,7 @@ MooseAbstractGroup >> allUsing: aTrait [
 { #category : #groups }
 MooseAbstractGroup >> allUsing: aTrait ofGroupClass: aGroupClass [
 
-	aTrait isTrait ifFalse: [ MooseAllUsingOnClass signal ].
-	^ self cacheAt: aTrait ifAbsentPut: [
-		  aGroupClass
-			  withAll: (self entityStorage select: [ :entity | entity class traitComposition includesTrait: aTrait ])
-			  withDescription: 'All ' , aTrait name asLowercase asEnglishPlural ]
+	^ self cacheAt: aTrait ifAbsentPut: [ aGroupClass withAll: (self rawAllUsing: aTrait) withDescription: 'All ' , aTrait name asLowercase asEnglishPlural ]
 ]
 
 { #category : #groups }
@@ -564,9 +560,10 @@ MooseAbstractGroup >> notEmpty [
 	^ self entities isNotEmpty
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 MooseAbstractGroup >> numberOfEntityUsing: aTrait [
-	^ (self allUsing: aTrait) size
+
+	^ (self rawAllUsing: aTrait) size
 ]
 
 { #category : #accessing }
@@ -596,6 +593,14 @@ MooseAbstractGroup >> printOn: aStream [
 	aStream nextPut: $)
 ]
 
+{ #category : #groups }
+MooseAbstractGroup >> rawAllUsing: aTrait [
+	"This is an optimization of #allUsing: when we do not need to manipulate a MooseGroup as result."
+
+	aTrait isTrait ifFalse: [ MooseAllUsingOnClass signal ].
+	^ self entityStorage select: [ :entity | entity class traitComposition includesTrait: aTrait ]
+]
+
 { #category : #'adding/removing' }
 MooseAbstractGroup >> readStream [
 	^ self entities readStream