Create-accessors

createAccessors
    self instVarNames do: [ :var |
        self compile: var, String cr, ' ^ ', var.
        self compile: var, ': aValue', 
            String cr, ' ^', var, ' := aValue'.
    ]