* Fix comp-function-type-spec for non symbol input (bug#66021)

* lisp/emacs-lisp/comp.el (comp-function-type-spec): Make it robust
against closures (bug#66021).

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index bb4552459ddd5d601469de52c786ee3d2997001b..e1bb70fe5d46c6865377b2fc4d5b68f9c5dfc130 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -4506,8 +4506,10 @@ inferred from the code itself by the native compiler; if it is
         type-spec )
     (when-let ((res (gethash function comp-known-func-cstr-h)))
       (setf type-spec (comp-cstr-to-type-spec res)))
-    (let ((f (symbol-function function)))
-      (when (and (null type-spec)
+    (let ((f (and (symbolp function)
+                  (symbol-function function))))
+      (when (and f
+                 (null type-spec)
                  (subr-native-elisp-p f))
         (setf kind 'inferred
               type-spec (subr-type f))))