Function: comp--spill-lap-single-function

comp--spill-lap-single-function is a byte-compiled function defined in comp.el.gz.

Signature

(comp--spill-lap-single-function FUNCTION)

Documentation

Byte-compile FUNCTION, spilling data from the byte compiler.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(defun comp--spill-lap-single-function (function)
  "Byte-compile FUNCTION, spilling data from the byte compiler."
  (unless (comp-ctxt-output comp-ctxt)
    (setf (comp-ctxt-output comp-ctxt)
          (make-temp-file "comp-lambda-" nil ".eln")))
  (let* ((byte-code (byte-compile function))
         (c-name (comp-c-func-name "anonymous-lambda" "F")))
    (setf (comp-ctxt-top-level-forms comp-ctxt)
          (list (make-byte-to-native-func-def :name '--anonymous-lambda
                                              :c-name c-name
                                              :byte-func byte-code)))
    (maphash #'comp--intern-func-in-ctxt byte-to-native-lambdas-h)))