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

Random states now print readably

Browse source
This commit is contained in:
jgarcia 2007-05-21 21:43:25 +00:00
parent 0ff1e848c2
commit 941efd3212
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/print.d
View file

@ -1409,7 +1409,7 @@ si_write_ugly_object(cl_object x, cl_object stream)
case t_random:
write_str("#$", stream);
si_write_ugly_object(ecl_make_unsigned_integer(x->random.value), stream);
write_array(1, x->random.value, stream);
break;
#ifndef CLOS

2
src/c/read.d
View file

@ -1279,7 +1279,7 @@ sharp_dollar_reader(cl_object in, cl_object c, cl_object d)
extra_argument('$', in, d);
c = ecl_read_object(in);
rs = cl_alloc_object(t_random);
rs->random.value = fixnnint(c);
rs->random.value = c;
@(return rs)
}