From 4f5c44033032558a1a27f4bf922c44dc30a416a2 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 28 Jul 1997 15:09:31 +0000
Subject: [PATCH] (map_obarray): Don't crash if something strange is in the
 obarray.

---
 src/lread.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.39.5