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

#$ relies on MAKE-RANDOM-STATE.

Browse source
This commit is contained in:
jjgarcia 2003-08-06 14:07:40 +00:00
parent fdccc2b5e6
commit 69de6b9374
1 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/read.d
View file

@ -1165,12 +1165,7 @@ sharp_dollar_reader(cl_object in, cl_object c, cl_object d)
if (d != Cnil && !read_suppress)
extra_argument('$', in, d);
c = read_object(in);
if (!FIXNUMP(c))
FEreader_error("Cannot make a random-state with the value ~S.",
in, 1, c);
output = cl_alloc_object(t_random);
output->random.value = fix(c);
@(return output)
return cl_make_random_state(1, c);
}
/*