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

Reader macro #R allows one to read rationals.

Browse source
This commit is contained in:
jgarcia 2006-10-13 20:49:40 +00:00
parent 78bc4567f3
commit decfccae40
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/read.d
View file

@ -1029,7 +1029,7 @@ read_number(cl_object in, int radix, cl_object macro_char)
FEreader_error("Cannot parse the #~A readmacro.", in, 1,
macro_char);
}
if (type_of(x) != t_fixnum && type_of(x) != t_bignum) {
if (cl_rationalp(x) == Cnil) {
FEreader_error("The float ~S appeared after the #~A readmacro.",
in, 2, x, macro_char);
}