Commit 120821e1 authored by Karl Heuer's avatar Karl Heuer
Browse files

(set_internal, Fmakunbound): Fix previous change.

parent ad61e7bc
......@@ -617,8 +617,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] == ':'
&& keyword_symbols_constant_flag
&& ! EQ (XSYMBOL (symbol)->value, symbol)))
&& keyword_symbols_constant_flag))
return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
Fset (symbol, Qunbound);
return symbol;
......@@ -969,8 +968,7 @@ set_internal (symbol, newval, bindflag)
CHECK_SYMBOL (symbol, 0);
if (NILP (symbol) || EQ (symbol, Qt)
|| (XSYMBOL (symbol)->name->data[0] == ':'
&& keyword_symbols_constant_flag
&& ! EQ (XSYMBOL (symbol)->value, symbol)))
&& keyword_symbols_constant_flag && ! EQ (newval, symbol)))
return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
valcontents = XSYMBOL (symbol)->value;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment