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

[bpt/emacs.git] / src / lread.c

diff --git a/src/lread.c b/src/lread.c
index c76b5b4..ef46e5f 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))