aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index 74b7d16affd..fa068e1ec6b 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -627,7 +627,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template,
627 Lisp_Object v1 = vectorp[op], v2; 627 Lisp_Object v1 = vectorp[op], v2;
628 if (!SYMBOLP (v1) 628 if (!SYMBOLP (v1)
629 || XSYMBOL (v1)->u.s.redirect != SYMBOL_PLAINVAL 629 || XSYMBOL (v1)->u.s.redirect != SYMBOL_PLAINVAL
630 || (v2 = SYMBOL_VAL (XSYMBOL (v1)), EQ (v2, Qunbound))) 630 || (v2 = SYMBOL_VAL (XSYMBOL (v1)), BASE_EQ (v2, Qunbound)))
631 v2 = Fsymbol_value (v1); 631 v2 = Fsymbol_value (v1);
632 PUSH (v2); 632 PUSH (v2);
633 NEXT; 633 NEXT;
@@ -694,7 +694,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template,
694 694
695 /* Inline the most common case. */ 695 /* Inline the most common case. */
696 if (SYMBOLP (sym) 696 if (SYMBOLP (sym)
697 && !EQ (val, Qunbound) 697 && !BASE_EQ (val, Qunbound)
698 && XSYMBOL (sym)->u.s.redirect == SYMBOL_PLAINVAL 698 && XSYMBOL (sym)->u.s.redirect == SYMBOL_PLAINVAL
699 && !SYMBOL_TRAPPED_WRITE_P (sym)) 699 && !SYMBOL_TRAPPED_WRITE_P (sym))
700 SET_SYMBOL_VAL (XSYMBOL (sym), val); 700 SET_SYMBOL_VAL (XSYMBOL (sym), val);
@@ -1209,7 +1209,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template,
1209 Lisp_Object v2 = POP; 1209 Lisp_Object v2 = POP;
1210 Lisp_Object v1 = TOP; 1210 Lisp_Object v1 = TOP;
1211 if (FIXNUMP (v1) && FIXNUMP (v2)) 1211 if (FIXNUMP (v1) && FIXNUMP (v2))
1212 TOP = BASE_EQ(v1, v2) ? Qt : Qnil; 1212 TOP = BASE_EQ (v1, v2) ? Qt : Qnil;
1213 else 1213 else
1214 TOP = arithcompare (v1, v2, ARITH_EQUAL); 1214 TOP = arithcompare (v1, v2, ARITH_EQUAL);
1215 NEXT; 1215 NEXT;