[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 4a7a0c9a9f5: * lisp/emacs-lisp/comp.el (comp-emit-set-call-subr
From: |
Andrea Corallo |
Subject: |
emacs-29 4a7a0c9a9f5: * lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Improve 263d6c38539 |
Date: |
Tue, 21 Mar 2023 07:15:54 -0400 (EDT) |
branch: emacs-29
commit 4a7a0c9a9f521b04b23580901e9c0a662b504e32
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Improve 263d6c38539
---
lisp/emacs-lisp/comp.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index febca8df19c..3dcbc2cca4d 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1773,7 +1773,7 @@ SP-DELTA is the stack adjustment."
(maxarg (cdr arity)))
(when (eq maxarg 'unevalled)
(signal 'native-ice (list "subr contains unevalled args" subr-name)))
- (if (not (subrp subr-name))
+ (if (not (subr-primitive-p subr-name))
;; The primitive got redefined before the compiler is
;; invoked! (bug#61917)
(comp-emit-set-call `(callref funcall
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 4a7a0c9a9f5: * lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Improve 263d6c38539,
Andrea Corallo <=