From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 21 Mar 2023 10:51:03 +0000 (+0100)
Subject: * lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Improve 263d6c38539
X-Git-Tag: emacs-29.0.90~119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a7a0c9a9f5;p=emacs.git

* lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Improve 263d6c38539
---

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