feature/native-comp 6c271ff: * Fix non native compiled build

[Andrea Corallo]

branch: feature/native-comp
commit 6c271ffaa808c602e177db4bd2297ff81112147e
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Fix non native compiled build
    
        * lisp/emacs-lisp/advice.el (ad-add-advice): Do not try to
        install trampolines in vanilla builds.
---
 lisp/emacs-lisp/advice.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 509e255..086aa98 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2077,7 +2077,8 @@ mapped to the closest extremal position).
 If FUNCTION was not advised already, its advice info will be
 initialized.  Redefining a piece of advice whose name is part of
 the cache-id will clear the cache."
-  (when (subr-primitive-p (symbol-function function))
+  (when (and (featurep 'nativecomp)
+             (subr-primitive-p (symbol-function function)))
     (comp-subr-trampoline-install function))
   (cond ((not (ad-is-advised function))
          (ad-initialize-advice-info function)