diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index f5397e9fb72..d66bcdae6ce 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -689,7 +689,7 @@ lexbound_p (Lisp_Object symbol) | |||
| 689 | { | 689 | { |
| 690 | case SPECPDL_LET_DEFAULT: | 690 | case SPECPDL_LET_DEFAULT: |
| 691 | case SPECPDL_LET: | 691 | case SPECPDL_LET: |
| 692 | if (EQ (specpdl_symbol (pdl), Qinternal_interpreter_environment)) | 692 | if (BASE_EQ (specpdl_symbol (pdl), Qinternal_interpreter_environment)) |
| 693 | { | 693 | { |
| 694 | Lisp_Object env = specpdl_old_value (pdl); | 694 | Lisp_Object env = specpdl_old_value (pdl); |
| 695 | if (CONSP (env) && !NILP (Fassq (symbol, env))) | 695 | if (CONSP (env) && !NILP (Fassq (symbol, env))) |
| @@ -4107,7 +4107,7 @@ NFRAMES and BASE specify the activation frame to use, as in `backtrace-frame'. | |||
| 4107 | { | 4107 | { |
| 4108 | Lisp_Object sym = specpdl_symbol (tmp); | 4108 | Lisp_Object sym = specpdl_symbol (tmp); |
| 4109 | Lisp_Object val = specpdl_old_value (tmp); | 4109 | Lisp_Object val = specpdl_old_value (tmp); |
| 4110 | if (EQ (sym, Qinternal_interpreter_environment)) | 4110 | if (BASE_EQ (sym, Qinternal_interpreter_environment)) |
| 4111 | { | 4111 | { |
| 4112 | Lisp_Object env = val; | 4112 | Lisp_Object env = val; |
| 4113 | for (; CONSP (env); env = XCDR (env)) | 4113 | for (; CONSP (env); env = XCDR (env)) |