* lisp/emacs-lisp/comp.el (native-compile): Type declare.

(cherry picked from commit e39e96c9b93cf99d50f99f3e0593cbfbf0ac758d)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 32d4442ca1b1f107898101e2c17cae4a9d4bbb8d..1627294199abe34b1781aece37c2fbed475059f4 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3583,6 +3583,8 @@ is a filename, if the compilation was successful return the
 filename of the compiled object.  If FUNCTION-OR-FILE is a
 function symbol or a form, if the compilation was successful
 return the compiled function."
+  (declare (ftype (function ((or string symbol) &optional string)
+                            (or native-comp-function string))))
   (comp--native-compile function-or-file nil output))
 
 ;;;###autoload