changeset 19020:1ee295d0114a

(map_obarray): Don't crash if something strange is in the obarray.
author Richard M. Stallman <rms@gnu.org>
date Mon, 28 Jul 1997 15:09:31 +0000
parents 65f371a2cf00
children 6f150e46a5fd
files src/lread.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);