Rework native compiled lisp/d lambda list accessor

	* lisp/help.el (help-function-arglist): Logic update for new
	'Fsubr_native_lambda_list'.
	* src/data.c (Fsubr_native_dyn_p): Remove.
	(Fsubr_native_lambda_list): Return t when the input is not a
	compiled lisp/d subr.
	(syms_of_data): Update for 'Fsubr_native_dyn_p' removal.

diff --git a/lisp/help.el b/lisp/help.el
index 01817ab95db26843a6fa5ccce56a5680e60420aa..897ab4a425dfbcea4777f132243c540984553874 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1337,7 +1337,8 @@ the same names as used in the original source code, when possible."
    ((and (byte-code-function-p def) (listp (aref def 0))) (aref def 0))
    ((eq (car-safe def) 'lambda) (nth 1 def))
    ((eq (car-safe def) 'closure) (nth 2 def))
-   ((subr-native-dyn-p def) (subr-native-lambda-list def))
+   ((and (subrp def) (listp (subr-native-lambda-list def)))
+    (subr-native-lambda-list def))
    ((or (and (byte-code-function-p def) (integerp (aref def 0)))
         (subrp def) (module-function-p def))
     (or (when preserve-names

diff --git a/src/data.c b/src/data.c
index b7955932b8572a403e7e75c6809a639c6cbf1c59..0acae67b2a839df2e2f9e5a2cd42cfdd8bff3958 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -884,26 +884,17 @@ function, nil otherwise.  */)
 
 #ifdef HAVE_NATIVE_COMP
 
-DEFUN ("subr-native-dyn-p", Fsubr_native_dyn_p,
-       Ssubr_native_dyn_p, 1, 1, 0,
-       doc: /* Return t if the subr is native compiled lisp/d
-function, nil otherwise.  */)
-  (Lisp_Object subr)
-{
-  return SUBR_NATIVE_COMPILED_DYNP (subr) ? Qt : Qnil;
-}
-
 DEFUN ("subr-native-lambda-list", Fsubr_native_lambda_list,
        Ssubr_native_lambda_list, 1, 1, 0,
-       doc: /* Return the lambda list of native compiled lisp/d
-function.  */)
+       doc: /* Return the lambda list for a native compiled lisp/d
+function or t otherwise.  */)
   (Lisp_Object subr)
 {
   CHECK_SUBR (subr);
 
   return SUBR_NATIVE_COMPILED_DYNP (subr)
     ? XSUBR (subr)->lambda_list[0]
-    : Qnil;
+    : Qt;
 }
 
 DEFUN ("subr-native-comp-unit", Fsubr_native_comp_unit,
@@ -4051,7 +4042,6 @@ syms_of_data (void)
   defsubr (&Ssubr_name);
   defsubr (&Ssubr_native_elisp_p);
 #ifdef HAVE_NATIVE_COMP
-  defsubr (&Ssubr_native_dyn_p);
   defsubr (&Ssubr_native_lambda_list);
   defsubr (&Ssubr_native_comp_unit);
   defsubr (&Snative_comp_unit_file);