* arith.c (INT_PTR_MAX_MP): New static variable.

(in_int_ptr_range): New function.
(arith_init): Initialize INT_PTR_MAX_MP.

* arith.h (in_int_ptr_range): Declared.

* lib.c (c_num): Allow bignums to be converted to a cnum, if
they are in range, rather than allowing only fixnums.

* rand.c (make_random_state): Now that we have such a function,
initialize random seed using time value from time_sec_usec rather than
from time and clock.  clock is bad for random seeding because it
measures virtual time since the start of the process.

1 files changed, 3 insertions, 2 deletions

diff --git a/rand.c b/rand.c
index 30708ab7..4bb3995a 100644
--- a/rand.c
+++ b/rand.c
@@ -136,8 +136,9 @@ val make_random_state(val seed)
     r->state[3] = (s >> 96) & 0xFFFFFFFFul;
 #endif
   } else if (nullp(seed)) {
-    r->state[0] = (rand32_t) time(0);
-    r->state[1] = (rand32_t) clock();
+    val time = time_sec_usec();
+    r->state[0] = (rand32_t) c_num(car(time));
+    r->state[1] = (rand32_t) c_num(cdr(time));
     memset(r->state + 2, 0xAA, sizeof r->state - 2 * sizeof r->state[0]);
   } else if (random_state_p(seed)) {
     struct random_state *rseed = (struct random_state *)