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

This reverts commit 4a7a0c9a9f.

These patch series caused a number of regression and more analysis is
required.
This commit is contained in:
Andrea Corallo 2023-03-28 14:56:37 +02:00
parent 4ec4f614c7
commit 8b66d8abd0

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 (subr-primitive-p subr-name))
(if (not (subrp subr-name))
;; The primitive got redefined before the compiler is
;; invoked! (bug#61917)
(comp-emit-set-call `(callref funcall