changeset 58449:377948a6af9a

(oblookup): Don't use XFASTINT blindly.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 23 Nov 2004 05:06:56 +0000
parents f3a76c43ac80
children 277e7a013eb6
files src/lread.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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 */