From 1b9e05b430d0cc09480e53fb1eaa5c724f99b078 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 9 Jul 2019 22:50:52 +0200 Subject: [PATCH] fix function name --- src/comp.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/comp.c b/src/comp.c index 7c97560d2e6..c9207e18692 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1940,6 +1940,7 @@ DEFUN ("comp-compile-and-load-ctxt", Fcomp_compile_and_load_ctxt, union Aligned_Lisp_Subr *x = xmalloc (sizeof (union Aligned_Lisp_Subr)); Lisp_Object func = XCAR (comp.funcs); Lisp_Object args = FUNCALL1 (comp-func-args, func); + char *symbol_name = (char *) SDATA (FUNCALL1 (symbol-name, func)); char *c_name = (char *) SDATA (FUNCALL1 (comp-func-c-func-name, func)); x->s.header.size = PVEC_SUBR << PSEUDOVECTOR_AREA_BITS; @@ -1947,7 +1948,7 @@ DEFUN ("comp-compile-and-load-ctxt", Fcomp_compile_and_load_ctxt, eassert (x->s.function.a0); x->s.min_args = XFIXNUM (FUNCALL1 (comp-args-min, args)); x->s.max_args = XFIXNUM (FUNCALL1 (comp-args-min, args)); - x->s.symbol_name = "foo"; + x->s.symbol_name = symbol_name; defsubr(x); comp.funcs = XCDR (comp.funcs); -- 2.39.5