Home | History | Annotate | Download | only in lisp

Lines Matching refs:integer

658 	    result = INTEGER(OFRD(rational));
662 		result = INTEGER(mpi_geti(OBRD(rational)));
684  evenp integer
687     LispObj *result, *integer;
689     integer = ARGUMENT(0);
691     switch (OBJECT_TYPE(integer)) {
693 	    result = FIXNUM_VALUE(integer) % 2 ? NIL : T;
696 	    result = INT_VALUE(integer) % 2 ? NIL : T;
699 	    result = mpi_remi(OBI(integer), 2) ? NIL : T;
702 	    fatal_builtin_object_error(builtin, integer, NOT_AN_INTEGER);
784     LispObj *integers, *integer, *operand;
791     integer = CAR(integers);
793     CHECK_INTEGER(integer);
794     set_real_object(&real, integer);
907 	    result = INTEGER((long)floor(sqrt(INT_VALUE(natural))));
916 		result = INTEGER(mpi_geti(bigi));
965 	/* calculate gcd before changing integer */
1046  lognot integer
1051     LispObj *integer;
1053     integer = ARGUMENT(0);
1055     CHECK_INTEGER(integer);
1057     set_real_object(&real, integer);
1161 	    result = INTEGER(OFRN(rational));
1165 		result = INTEGER(mpi_geti(OBRN(rational)));
1187  oddp integer
1190     LispObj *result, *integer;
1192     integer = ARGUMENT(0);
1194     switch (OBJECT_TYPE(integer)) {
1196 	    result = FIXNUM_VALUE(integer) % 2 ? T : NIL;
1199 	    result = INT_VALUE(integer) % 2 ? T : NIL;
1202 	    result = mpi_remi(OBI(integer), 2) ? T : NIL;
1205 	    fatal_builtin_object_error(builtin, integer, NOT_AN_INTEGER);
1242 	    number = INTEGER(numerator);