diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-05-22 14:45:35 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-05-28 20:53:25 -0400 |
commit | fde8dc9287c0a81c6b942b5cf445f8f7aeba1207 (patch) | |
tree | df05ec0d8c9770e6eaac7c6f3aff918c40c04933 /lisp/emacs-lisp/comp-run.el | |
parent | 1a1170cde7e847f4eb4d736a400f7325f2265a1c (diff) | |
download | emacs-fde8dc9287c0a81c6b942b5cf445f8f7aeba1207.tar.gz emacs-fde8dc9287c0a81c6b942b5cf445f8f7aeba1207.tar.bz2 emacs-fde8dc9287c0a81c6b942b5cf445f8f7aeba1207.zip |
Redirect calls to `subr-native-elisp-p` to `native-comp-function-p`
* test/src/comp-tests.el (comp-tests-bootstrap, lambda-return)
(lambda-return2, free-fun, free-fun2, free-fun-silly-name, speed--1)
(compile-forms, comp-test-defsubst, primitive-redefine-compile-44221)
(48029-1, 61917-1, tco, fw-prop-1, pure):
* test/lisp/help-fns-tests.el (help-fns-test-lisp-defun):
* lisp/subr.el (subr-primitive-p, primitive-function-p, symbol-file):
* lisp/help-fns.el (find-lisp-object-file-name):
* lisp/emacs-lisp/disass.el (disassemble-internal):
* lisp/emacs-lisp/comp.el (comp--call-optim-form-call):
* lisp/emacs-lisp/comp-run.el (comp-warn-primitives):
* lisp/emacs-lisp/comp-common.el (comp-function-type-spec):
* lisp/emacs-lisp/byte-opt.el (side-effect-free-fns):
* lisp/emacs-lisp/bytecomp.el (<trailer>): Rename `subr-native-elisp-p`
to `native-comp-function-p`.
Diffstat (limited to 'lisp/emacs-lisp/comp-run.el')
-rw-r--r-- | lisp/emacs-lisp/comp-run.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp-run.el b/lisp/emacs-lisp/comp-run.el index 5cc61579030..f159c5b1911 100644 --- a/lisp/emacs-lisp/comp-run.el +++ b/lisp/emacs-lisp/comp-run.el @@ -341,7 +341,7 @@ display a message." (clrhash comp-deferred-pending-h))) (defconst comp-warn-primitives - '(null memq gethash and subrp not subr-native-elisp-p + '(null memq gethash and subrp not native-comp-function-p comp--install-trampoline concat if symbolp symbol-name make-string length aset aref length> mapcar expand-file-name file-name-as-directory file-exists-p native-elisp-load) |