From 6a8c172927ed1c0dd8d2cbb5b60d2f78211e7ae4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gerd=20M=C3=B6llmann?= Date: Tue, 18 Oct 2022 08:28:28 +0200 Subject: [PATCH] =?utf8?q?Add=20c=C3=B6-symbol-name?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- src/data.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/data.c b/src/data.c index a4e07c8d001..2f6b25805f2 100644 --- a/src/data.c +++ b/src/data.c @@ -773,6 +773,14 @@ DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0, return SYMBOL_NAME (symbol); } +DEFUN ("cl-symbol-name", Fcl_symbol_name, Scl_symbol_name, 1, 1, 0, + doc: /* Return SYMBOL's name, a string. */) + (register Lisp_Object symbol) +{ + CHECK_SYMBOL (symbol); + return SYMBOL_NAME (symbol); +} + DEFUN ("symbol-package", Fsymbol_package, Ssymbol_package, 1, 1, 0, doc: /* Return SYMBOL's package, a package or nil. */) (Lisp_Object symbol) @@ -4332,6 +4340,7 @@ syms_of_data (void) defsubr (&Sindirect_function); defsubr (&Ssymbol_plist); defsubr (&Ssymbol_name); + defsubr (&Scl_symbol_name); defsubr (&Ssymbol_package); defsubr (&Sbare_symbol); defsubr (&Ssymbol_with_pos_pos); -- 2.39.2