Home | History | Annotate | Download | only in lisp

Lines Matching defs:integer

853     long i, integer;
879 	integer = strtol(stk, &str, 10);
881 	if (*str || errno == ERANGE || integer > MOST_POSITIVE_FIXNUM)
885 	integer = 0;
890 	    if (integer == 1) {
901 		result = LispReadArray(integer, info);
905 	    result = LispReadRational(integer, info);
908 	    if (integer > MAX_LABEL_VALUE)
915 		    if (info->objects[i].label == integer)
917 				    integer);
923 		info->objects[num_objects].label = integer;
928 		if (READLABELP(result) && READLABEL_VALUE(result) == integer)
930 				integer, integer);
938 	    if (integer > MAX_LABEL_VALUE)
943 		    if (info->objects[i].label == integer) {
948 			    result = READLABEL(integer);
954 		    READ_ERROR1("undefined label #%ld#", integer);
1365     long integer;
1384 	/* ratio must point to an integer in radix base */
1428 	/* if type set, it is not an integer specification */
1475     integer = strtol(str, NULL, radix);
1485     if (ratio && integer != 0) {
1494 	    if (integer == MINSLONG ||
1498 		mpi_seti(mpr_num(bigratio), integer);
1515 		integer = mpi_geti(mpr_num(bigratio));
1520 		    number = INTEGER(integer);
1522 		    number = RATIO(integer, denominator);
1528 	    long num = integer, den = denominator, rest;
1540 		integer /= num;
1543 		integer = -integer;
1547 		number = INTEGER(integer);
1549 		number = RATIO(integer, denominator);
1555 	number = INTEGER(integer);