# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1101186416 0
# Node ID 377948a6af9aa5f964efd2a33feaa217c5c4e5b5
# Parent  f3a76c43ac80f074374dc87b95b30317388404e9
(oblookup): Don't use XFASTINT blindly.

diff -r f3a76c43ac80 -r 377948a6af9a src/lread.c
--- a/src/lread.c	Tue Nov 23 05:05:34 2004 +0000
+++ b/src/lread.c	Tue Nov 23 05:06:56 2004 +0000
@@ -3276,7 +3276,7 @@
   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 */