named: aSymbol parent: aNamespaceParent
| res |
self assert: [aSymbol isSymbol].
^ self namespaces
find: [:n| n name == aSymbol]
ifAbsent: [ res := self new name: aSymbol.
res parent: aNamespaceParent.
Namespaces := (self namespaces asList add: res) asArray.
res ]