(oblookup): Don't use XFASTINT blindly.

diff --git a/src/lread.c b/src/lread.c
index e87dba5312895c02e0da2892b9585a1e3d767a33..47512fd31973c90114bbeea7771ae41b503bf534 100644 (file)
--- 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 */