Class Parser

addArgName: name

	((instNames includes: name)

		or: [ argNames includes: name ])

		ifTrue: [ self error: 'doubly defined argument name '].

	argNames add: name