changeset 21982:456f95c03285

(Fintern): Properly compare lisp objects.
author Richard M. Stallman <rms@gnu.org>
date Thu, 07 May 1998 20:48:17 +0000
parents 7f45fb4c0a1f
children 487cd71c058d
files src/lread.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)];