Obs: Criei uma funcao de acesso (return-symbol) que aparentemente é inútil, mas o symbol do field em apply-action por algum motivo dá erro ao chamar (slot-value token field).
Esse mesmo problema está ocorrendo em outras funcoes, entao preciso utilizar "string=" em vez de "eql"para comparar dois symbols.
Obs: Criei uma funcao de acesso (return-symbol) que aparentemente é inútil, mas o symbol do field em apply-action por algum motivo dá erro ao chamar (slot-value token field). Esse mesmo problema está ocorrendo em outras funcoes, entao preciso utilizar "string=" em vez de "eql"para comparar dois symbols.