# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885784282 0
# Node ID 6c655dc99321ea2759410415fe7cbaa9c9bb3a4a
# Parent  a75bd4b8183d2f989a469c67dd7474cfde1dd077
(Funintern): Clear the symbol's obarray field.

diff -r a75bd4b8183d -r 6c655dc99321 src/lread.c
--- a/src/lread.c	Mon Jan 26 03:09:01 1998 +0000
+++ b/src/lread.c	Mon Jan 26 03:11:22 1998 +0000
@@ -2303,6 +2303,8 @@
   if (SYMBOLP (name) && !EQ (name, tem))
     return Qnil;
 
+  XSYMBOL (tem)->obarray = Qnil;
+
   hash = oblookup_last_bucket_number;
 
   if (EQ (XVECTOR (obarray)->contents[hash], tem))