From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 28 Jul 1997 15:09:31 +0000 (+0000)
Subject: (map_obarray): Don't crash if something strange is in the obarray.
X-Git-Tag: emacs-20.1~926
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f5c44033032558a1a27f4bf922c44dc30a416a2;p=emacs.git

(map_obarray): Don't crash if something strange is in the obarray.
---

diff --git a/src/lread.c b/src/lread.c
index 7f718dce681..60583bafbb2 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2248,7 +2248,7 @@ map_obarray (obarray, fn, arg)
   for (i = XVECTOR (obarray)->size - 1; i >= 0; i--)
     {
       tail = XVECTOR (obarray)->contents[i];
-      if (XFASTINT (tail) != 0)
+      if (SYMBOLP (tail))
 	while (1)
 	  {
 	    (*fn) (tail, arg);