From 120821e11c6d9f81288ab8b00b779b7370179b94 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 12 Apr 1998 06:41:01 +0000 Subject: [PATCH] (set_internal, Fmakunbound): Fix previous change. --- src/data.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/data.c b/src/data.c index 0eb415e978b..7daf6716986 100644 --- a/src/data.c +++ b/src/data.c @@ -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; -- 2.39.2