Function: comp-subr-trampoline-install

comp-subr-trampoline-install is an autoloaded and byte-compiled function defined in comp.el.gz.

Signature

(comp-subr-trampoline-install SUBR-NAME)

Documentation

Make SUBR-NAME effectively advice-able when called from native code.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
;; Moved early to avoid circularity when comp.el is loaded and
;; `macroexpand' needs to be advised (bug#47049).
;;;###autoload
(defun comp-subr-trampoline-install (subr-name)
  "Make SUBR-NAME effectively advice-able when called from native code."
  (unless (or (null comp-enable-subr-trampolines)
              (memq subr-name native-comp-never-optimize-functions)
              (gethash subr-name comp-installed-trampolines-h))
    (cl-assert (subr-primitive-p (symbol-function subr-name)))
    (comp--install-trampoline
     subr-name
     (or (comp-trampoline-search subr-name)
         (comp-trampoline-compile subr-name)
         ;; Should never happen.
         (cl-assert nil)))))