diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index a0bcbb48481..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); |