mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 12:21:15 -08:00
Code Issues Projects Releases Packages Wiki Activity

random-state: more informative message

Browse source 
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-09-22 16:32:50 +02:00
parent a8432f4f9c
commit dd37dd2851
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/c/num_rand.d
View file

@ -220,13 +220,18 @@ ecl_make_random_state(cl_object rs)
case t_fixnum:
/* XXX: If we'll decide to use 64-bit algorithm for
appropriate platforms then this will be replaced
with ecl_to_ulong_long from number.d*/
with ecl_to_ulong_long from number.d, which takes
widest available type (32 or 64 bit)
automatically. */
z->random.value = init_genrand
(ecl_to_uint32_t(rs));
break;
default:
default: {
const char *type
= "(OR RANDOM-STATE (SIMPLE-VECTOR *) (INTEGER 0 *))";
FEwrong_type_only_arg(@[make-random-state], rs,
@[random-state]);
ecl_read_from_cstring(type));
}
}
return(z);