From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 23 Nov 2004 05:06:56 +0000 (+0000)
Subject: (oblookup): Don't use XFASTINT blindly.
X-Git-Tag: ttn-vms-21-2-B4~3729
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8bc285a288ee0d6db3a8350d6f62d51db350e2af;p=emacs.git

(oblookup): Don't use XFASTINT blindly.
---

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 */