Lines Matching defs:rational
644 denominator rational
647 LispObj *result, *rational;
649 rational = ARGUMENT(0);
651 switch (OBJECT_TYPE(rational)) {
658 result = INTEGER(OFRD(rational));
661 if (mpi_fiti(OBRD(rational)))
662 result = INTEGER(mpi_geti(OBRD(rational)));
667 mpi_set(den, OBRD(rational));
672 LispDestroy("%s: %s is not a rational number",
673 STRFUN(builtin), STROBJ(rational));
1147 numerator rational
1150 LispObj *result, *rational;
1152 rational = ARGUMENT(0);
1154 switch (OBJECT_TYPE(rational)) {
1158 result = rational;
1161 result = INTEGER(OFRN(rational));
1164 if (mpi_fiti(OBRN(rational)))
1165 result = INTEGER(mpi_geti(OBRN(rational)));
1170 mpi_set(num, OBRN(rational));
1175 LispDestroy("%s: %s is not a rational number",
1176 STRFUN(builtin), STROBJ(rational));
1231 rational number