readArray | args |
self currentChar ~= $(
ifTrue: [ self error: self currentChar asString + 'Little Smalltalk does not use symbols'].
self nextChar. self nextLex. args <- List new.
[ tokenType ~= $) ]
whileTrue: [ args add: self readTerm ].
self nextLex.
^ PrimitiveNode new number: 36 arguments: args