(set_internal): Properly compare lisp objects.

(Fmakunbound): Likewise.

diff --git a/src/data.c b/src/data.c
index eb1cbf77bbc044bb0a1e2d121f0b71e8cbe617d1..eb04f5a39aac42f5dccbb6bc271e4187a46be2ca 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -618,7 +618,7 @@ DEFUN ("makunbound", Fmakunbound, Smakunbound, 1, 1, 0, "Make SYMBOL's value be
   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 @@ set_internal (symbol, newval, bindflag)
   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;