From decfccae40509011da7fdf4e78d317b2cfe736f7 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 13 Oct 2006 20:49:40 +0000
Subject: [PATCH] Reader macro #R allows one to read rationals.

---
 src/c/read.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/read.d b/src/c/read.d
index 5b0e5f673..5ae6353f3 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -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);
 		}