Remove unnecessary cons in function-type property

* lisp/emacs-lisp/comp-common.el (comp-function-type-spec): Remove
unnecessary car.
* lisp/emacs-lisp/comp.el (comp--intern-func-in-ctxt): Likewise.
* lisp/emacs-lisp/byte-run.el (byte-run--set-function-type): Update
lambda list.
This commit is contained in:
Andrea Corallo 2024-05-05 23:39:01 +02:00
parent 77f87d4b48
commit f920959ac9
3 changed files with 3 additions and 3 deletions

View file

@ -218,7 +218,7 @@ So far, FUNCTION can only be a symbol, not a lambda expression."
val)))))
(defalias 'byte-run--set-function-type
#'(lambda (f _args &rest val)
#'(lambda (f _args val)
(list 'function-put (list 'quote f)
''function-type (list 'quote val))))