# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893618206 0
# Node ID 0b8510aab527a15b6ae083c5e360d655d295c456
# Parent  b90287cb111a712f8fe7ede7849618b5a4142333
(Fintern): Initialize keywords only in initial obarray.

diff -r b90287cb111a -r 0b8510aab527 src/lread.c
--- a/src/lread.c	Sun Apr 26 19:16:25 1998 +0000
+++ b/src/lread.c	Sun Apr 26 19:16:46 1998 +0000
@@ -2306,7 +2306,8 @@
   sym = Fmake_symbol (string);
   XSYMBOL (sym)->obarray = obarray;
 
-  if (XSTRING (string)->data[0] == ':')
+  if ((XSTRING (string)->data[0] == ':')
+      && obarray == initial_obarray)
     XSYMBOL (sym)->value = sym;
 
   ptr = &XVECTOR (obarray)->contents[XINT (tem)];