From 8bc285a288ee0d6db3a8350d6f62d51db350e2af Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 23 Nov 2004 05:06:56 +0000 Subject: [PATCH] (oblookup): Don't use XFASTINT blindly. --- src/lread.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lread.c b/src/lread.c index e87dba53128..47512fd3197 100644 --- a/src/lread.c +++ b/src/lread.c @@ -3276,7 +3276,7 @@ oblookup (obarray, ptr, size, size_byte) hash %= obsize; bucket = XVECTOR (obarray)->contents[hash]; oblookup_last_bucket_number = hash; - if (XFASTINT (bucket) == 0) + if (EQ (bucket, make_number (0))) ; else if (!SYMBOLP (bucket)) error ("Bad data in guts of obarray"); /* Like CADR error message */ -- 2.39.2