Lines Matching defs:natural
892 isqrt natural
895 LispObj *natural, *result;
897 natural = ARGUMENT(0);
899 if (cmp_object_object(natural, obj_zero, 1) < 0)
902 switch (OBJECT_TYPE(natural)) {
904 result = FIXNUM((long)floor(sqrt(FIXNUM_VALUE(natural))));
907 result = INTEGER((long)floor(sqrt(INT_VALUE(natural))));
914 mpi_sqrt(bigi, OBI(natural));
930 LispDestroy("%s: %s is not a natural number",
931 STRFUN(builtin), STROBJ(natural));