(Funintern): Clear the symbol's obarray field.

diff --git a/src/lread.c b/src/lread.c
index c76b5b4eb12e23ff50ffd8a3d6298a7468af7c21..ef46e5f6a34f31984a2b21a5578f1acd839c30a0 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2303,6 +2303,8 @@ OBARRAY defaults to the value of the variable `obarray'.")
   if (SYMBOLP (name) && !EQ (name, tem))
     return Qnil;
 
+  XSYMBOL (tem)->obarray = Qnil;
+
   hash = oblookup_last_bucket_number;
 
   if (EQ (XVECTOR (obarray)->contents[hash], tem))