# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 894574097 0
# Node ID 456f95c032855a5bbab0e193842e41625e3599c8
# Parent  7f45fb4c0a1f90c7f9785aadf4b1018b455edc7b
(Fintern): Properly compare lisp objects.

diff -r 7f45fb4c0a1f -r 456f95c03285 src/lread.c
--- a/src/lread.c	Thu May 07 20:47:53 1998 +0000
+++ b/src/lread.c	Thu May 07 20:48:17 1998 +0000
@@ -2320,7 +2320,7 @@
   XSYMBOL (sym)->obarray = obarray;
 
   if ((XSTRING (string)->data[0] == ':')
-      && obarray == initial_obarray)
+      && EQ (obarray, initial_obarray))
     XSYMBOL (sym)->value = sym;
 
   ptr = &XVECTOR (obarray)->contents[XINT (tem)];