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

2024-05-31 17:00:50 +02:00
parent 876bd6506d
commit e39e96c9b9
1 changed files with 2 additions and 0 deletions
--- 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