diff options
| author | Stefan Monnier | 2024-03-18 09:35:11 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2024-03-18 09:35:11 -0400 |
| commit | be08372bf9b7ebe244ba6940f3e78fc754910d86 (patch) | |
| tree | bb192d43d3e87a0945f0f05967da310aae29030a /src/comp.c | |
| parent | 1a8b34a503e5af32851c1aac27a3f09e2345673b (diff) | |
| parent | 63e67916b01569da5bb24f6d9a354dc72897c468 (diff) | |
| download | emacs-be08372bf9b7ebe244ba6940f3e78fc754910d86.tar.gz emacs-be08372bf9b7ebe244ba6940f3e78fc754910d86.zip | |
Merge branch 'cl-type-of' (bug#69739)
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/comp.c b/src/comp.c index 3f989c722d4..76cf1f3ab6e 100644 --- a/src/comp.c +++ b/src/comp.c | |||
| @@ -2442,7 +2442,7 @@ emit_limple_insn (Lisp_Object insn) | |||
| 2442 | { | 2442 | { |
| 2443 | Lisp_Object arg1 = arg[1]; | 2443 | Lisp_Object arg1 = arg[1]; |
| 2444 | 2444 | ||
| 2445 | if (EQ (Ftype_of (arg1), Qcomp_mvar)) | 2445 | if (EQ (Fcl_type_of (arg1), Qcomp_mvar)) |
| 2446 | res = emit_mvar_rval (arg1); | 2446 | res = emit_mvar_rval (arg1); |
| 2447 | else if (EQ (FIRST (arg1), Qcall)) | 2447 | else if (EQ (FIRST (arg1), Qcall)) |
| 2448 | res = emit_limple_call (XCDR (arg1)); | 2448 | res = emit_limple_call (XCDR (arg1)); |