# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 870102571 0
# Node ID 1ee295d0114a682988c3658efd4585cdfe3412c0
# Parent  65f371a2cf00ceca3e50bcae5de48b46e1ea8636
(map_obarray): Don't crash if something strange is in the obarray.

diff -r 65f371a2cf00 -r 1ee295d0114a src/lread.c
--- a/src/lread.c	Mon Jul 28 15:09:00 1997 +0000
+++ b/src/lread.c	Mon Jul 28 15:09:31 1997 +0000
@@ -2248,7 +2248,7 @@
   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);