Lines Matching defs:thistoken
573 return instance->thistoken = ALISP_INTEGER;
593 instance->thistoken = ALISP_INTEGER;
599 return instance->thistoken = EOF;
603 if (c == '.' && instance->thistoken == ALISP_INTEGER) {
607 instance->thistoken = ALISP_FLOAT;
613 } else if (c == 'e' && instance->thistoken == ALISP_FLOAT) {
616 instance->thistoken = ALISP_FLOATE;
623 return instance->thistoken;
644 return instance->thistoken = EOF;
651 return instance->thistoken = ALISP_IDENTIFIER;
660 return instance->thistoken = EOF;
682 return instance->thistoken = ALISP_STRING;
685 return instance->thistoken = c;
696 int thistoken;
699 while ((thistoken = gettoken(instance)) != ')' && thistoken != EOF) {
703 if (thistoken == '.') {
714 if ((thistoken = gettoken(instance)) != ')') {
778 int thistoken;
782 thistoken = gettoken(instance);
784 thistoken = instance->thistoken;
786 switch (thistoken) {
817 lisp_warn(instance, "%d:%d: unexpected character `%c'", instance->lineno, instance->charno, thistoken);