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:
parent
4ec4f614c7
commit
8b66d8abd0
1 changed files with 1 additions and 1 deletions
|
@ -1773,7 +1773,7 @@ SP-DELTA is the stack adjustment."
|
||||||
(maxarg (cdr arity)))
|
(maxarg (cdr arity)))
|
||||||
(when (eq maxarg 'unevalled)
|
(when (eq maxarg 'unevalled)
|
||||||
(signal 'native-ice (list "subr contains unevalled args" subr-name)))
|
(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
|
;; The primitive got redefined before the compiler is
|
||||||
;; invoked! (bug#61917)
|
;; invoked! (bug#61917)
|
||||||
(comp-emit-set-call `(callref funcall
|
(comp-emit-set-call `(callref funcall
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue