diff options
| author | Andrea Corallo <akrl@sdf.org> | 2023-03-28 14:56:37 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2023-03-28 15:47:47 +0200 |
| commit | 8b66d8abd0119a250bc81ca7625a0c8de3e40555 (patch) | |
| tree | 6b3bd72e4e266812b2947701857d1b666cd145cc /lisp/emacs-lisp/comp.el | |
| parent | 4ec4f614c712b8283b669feb7a6f87a700cdf2e6 (diff) | |
| download | emacs-8b66d8abd0119a250bc81ca7625a0c8de3e40555.tar.gz | |
Revert "* lisp/emacs-lisp/comp.el (comp-emit-set-call-subr): Improve..."
This reverts commit 4a7a0c9a9f521b04b23580901e9c0a662b504e32.
These patch series caused a number of regression and more analysis is
required.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 3dcbc2cca4d..febca8df19c 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 (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 |