Levente Uzonyi uploaded a new version of Environments to project The Trunk:
http://source.squeak.org/trunk/Environments-ul.84.mcz

==================== Summary ====================

Name: Environments-ul.84
Author: ul
Time: 31 March 2022, 9:44:33.789829 am
UUID: 8bddd87e-953c-485a-b76a-991fd4548c87
Ancestors: Environments-ct.83

- use Symboll class >> #lookup: instead of #hasInterned:ifTrue:
- just check whether baseName is an existing symbol in Environment >> #classOrTraitNamed: instead of interning it, because if it is not a symbol, it cannot be present as a key in declarations

=============== Diff against Environments-ct.83 ===============

Item was changed:
  ----- Method: Environment>>classOrTraitNamed: (in category 'classes and traits') -----
  classOrTraitNamed: aString 
  	"aString is either a class or trait name or a class or trait name followed by ' class' or 'classTrait' respectively.
  	Answer the class or metaclass it names."
  
  	| meta baseName |
  	(aString endsWith: ' class')
+ 		ifTrue: [
+ 			meta := true.
+ 			baseName := aString copyFrom: 1 to: aString size - 6 ]
- 		ifTrue: [meta := true.
- 				baseName := aString copyFrom: 1 to: aString size - 6]
  		ifFalse: [
  			(aString endsWith: ' classTrait')
  				ifTrue: [
  					meta := true.
+ 					baseName := aString copyFrom: 1 to: aString size - 11 ]
- 					baseName := aString copyFrom: 1 to: aString size - 11]
  				ifFalse: [
  					meta := false.
+ 					baseName := aString ] ].
+ 	^(Symbol lookup: baseName) ifNotNil: [ :baseNameSymbol |
+ 		declarations at: baseNameSymbol ifPresent: [ :global |
+ 	 		global isBehavior ifTrue: [
+ 				meta
+ 					ifFalse: [ global ]
+ 					ifTrue: [ global classSide ] ] ] ]!
- 					baseName := aString]].
- 
- 	^declarations at: baseName asSymbol ifPresent:
- 		[ :global |
-  		global isBehavior ifTrue:
- 			[ meta
- 				ifFalse: [ global ]
- 				ifTrue: [ global classSide ]]]!

Item was changed:
  ----- Method: Environment>>hasClassNamed: (in category 'classes and traits') -----
  hasClassNamed: aString
+ 	
+ 	^(Symbol lookup: aString)
+ 		ifNil: [ false ]
+ 		ifNotNil: [:symbol | 
+ 			(declarations at: symbol ifAbsent: [nil])
+ 				isKindOf: Class]!
- 	Symbol hasInterned: aString ifTrue:
- 		[:symbol | 
- 		^ (declarations at: symbol ifAbsent: [nil])
- 			isKindOf: Class].
- 	^ false.!