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

diff --git a/src/lread.c b/src/lread.c
index 7f718dce681ae36de0d00ebdabf3e36cb8f9e083..60583bafbb27ccb6e69b91df81b17b0418fad740 100644 (file)
--- 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);