From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 7 May 1998 20:48:17 +0000 (+0000)
Subject: (Fintern): Properly compare lisp objects.
X-Git-Tag: emacs-20.3~1095
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a458d45d9e78325248ce81695de2bda8b1ed3e1e;p=emacs.git

(Fintern): Properly compare lisp objects.
---

diff --git a/src/lread.c b/src/lread.c
index 755c6ec1d0a..00d93192f30 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2320,7 +2320,7 @@ it defaults to the value of `obarray'.")
   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)];