spill lap

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 40cf821720e689e6c36cb7f0ea8765b5569a68da..2617142c622076d2fa323011d3fbc0f98c95ca12 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -559,6 +559,7 @@ outputting warnings about functions not being defined at runtime.")
 (defvar byte-compile-output nil
   "Alist describing contents to put in byte code string.
 Each element is (INDEX . VALUE)")
+(defvar byte-compile-lap-output nil)
 (defvar byte-compile-depth 0 "Current depth of execution stack.")
 (defvar byte-compile-maxdepth 0 "Maximum depth of execution stack.")
 
@@ -3111,6 +3112,8 @@ for symbols generated by the byte compiler itself."
                       (not (delq nil (mapcar 'consp (cdr (car body))))))))
              (setq rest (cdr rest)))
            rest))
+      ;; Spill lap output here
+      (setq byte-compile-lap-output byte-compile-output)
       (let ((byte-compile-vector (byte-compile-constants-vector)))
        (list 'byte-code (byte-compile-lapcode byte-compile-output)
              byte-compile-vector byte-compile-maxdepth)))