diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 6 |
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; |