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

This commit is contained in:
Andrea Corallo 2023-03-21 11:51:03 +01:00
parent 4a6eefb93a
commit 4a7a0c9a9f

View file

@ -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