From VisualWorks® NonCommercial, 7.4 of December 5, 2005 on May 10, 2006 at 5:14:33 pm
CormasNS.Kernel.CormasModel class instance-creation
createReaderAccessor: aName
"creates a reader accessor such as :
theXXXs
^theXXXs ifNil:[theXXXs := IndexedSet new].
aName ('XXX') is completed as theXXXs"
| pop |
pop := 'the' , aName , 's'.
self compile: (pop , '\^' , pop, ' ifNil:[', pop, ' := IndexedSet new]') withCRs
classified: 'accessing'
notifying: nil.