mirror of git://git.sv.gnu.org/emacs.git
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.scratch/igc
parent
77f87d4b48
commit
f920959ac9
|
@ -218,7 +218,7 @@ So far, FUNCTION can only be a symbol, not a lambda expression."
|
||||||
val)))))
|
val)))))
|
||||||
|
|
||||||
(defalias 'byte-run--set-function-type
|
(defalias 'byte-run--set-function-type
|
||||||
#'(lambda (f _args &rest val)
|
#'(lambda (f _args val)
|
||||||
(list 'function-put (list 'quote f)
|
(list 'function-put (list 'quote f)
|
||||||
''function-type (list 'quote val))))
|
''function-type (list 'quote val))))
|
||||||
|
|
||||||
|
|
|
@ -517,7 +517,7 @@ itself."
|
||||||
(when (and f (null type-spec))
|
(when (and f (null type-spec))
|
||||||
(if-let ((delc-type (function-get function 'function-type)))
|
(if-let ((delc-type (function-get function 'function-type)))
|
||||||
;; Declared Lisp function
|
;; Declared Lisp function
|
||||||
(setf type-spec (car delc-type))
|
(setf type-spec delc-type)
|
||||||
(when (subr-native-elisp-p f)
|
(when (subr-native-elisp-p f)
|
||||||
;; Native compiled inferred
|
;; Native compiled inferred
|
||||||
(setf kind 'inferred
|
(setf kind 'inferred
|
||||||
|
|
|
@ -825,7 +825,7 @@ clashes."
|
||||||
(comp-func-lap func) lap
|
(comp-func-lap func) lap
|
||||||
(comp-func-frame-size func) (comp--byte-frame-size byte-func)
|
(comp-func-frame-size func) (comp--byte-frame-size byte-func)
|
||||||
(comp-func-speed func) (comp--spill-speed name)
|
(comp-func-speed func) (comp--spill-speed name)
|
||||||
(comp-func-declared-type func) (car (comp--spill-decl-spec name 'function-type))
|
(comp-func-declared-type func) (comp--spill-decl-spec name 'function-type)
|
||||||
(comp-func-pure func) (comp--spill-decl-spec name 'pure))
|
(comp-func-pure func) (comp--spill-decl-spec name 'pure))
|
||||||
|
|
||||||
;; Store the c-name to have it retrievable from
|
;; Store the c-name to have it retrievable from
|
||||||
|
|
Loading…
Reference in New Issue