* lisp/help.el (help-function-arglist): Fix non nativecomp builds (bug#43914)

diff --git a/lisp/help.el b/lisp/help.el
index 4d0c4d5d985fa6ecc0efc18d6f062f54685cf5a9..c166b63a56f5d83922f87f7e875488e5963ea158 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1335,7 +1335,9 @@ 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))
-   ((and (subrp def) (listp (subr-native-lambda-list def)))
+   ((and (featurep 'nativecomp)
+         (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))