# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 894574073 0
# Node ID 7f45fb4c0a1f90c7f9785aadf4b1018b455edc7b
# Parent  e73c0672d7b3b7cd5fcc6cad7b20b11d9a605a7e
(set_internal): Properly compare lisp objects.
(Fmakunbound): Likewise.

diff -r e73c0672d7b3 -r 7f45fb4c0a1f src/data.c
--- a/src/data.c	Thu May 07 19:18:29 1998 +0000
+++ b/src/data.c	Thu May 07 20:47:53 1998 +0000
@@ -618,7 +618,7 @@
   CHECK_SYMBOL (symbol, 0);
   if (NILP (symbol) || EQ (symbol, Qt)
       || (XSYMBOL (symbol)->name->data[0] == ':'
-	  && XSYMBOL (symbol)->obarray == initial_obarray
+	  && EQ (XSYMBOL (symbol)->obarray, initial_obarray)
 	  && keyword_symbols_constant_flag))
     return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
   Fset (symbol, Qunbound);
@@ -970,7 +970,7 @@
   CHECK_SYMBOL (symbol, 0);
   if (NILP (symbol) || EQ (symbol, Qt)
       || (XSYMBOL (symbol)->name->data[0] == ':'
-	  && XSYMBOL (symbol)->obarray == initial_obarray
+	  && EQ (XSYMBOL (symbol)->obarray, initial_obarray)
 	  && keyword_symbols_constant_flag && ! EQ (newval, symbol)))
     return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
   valcontents = XSYMBOL (symbol)->value;