X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-main.lisp;h=aa011e1a84308c4da53a1c7bb97ac64aa056374c;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=08fdba6f320428efd20ba754e05a09472756cbf8;hpb=970dd272dc84f7420252eadb4829cc193f795716;p=sbcl.git

diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp
index 08fdba6..aa011e1 100644
--- a/src/compiler/target-main.lisp
+++ b/src/compiler/target-main.lisp
@@ -45,10 +45,12 @@
              ;; need *BACKEND-INFO-ENVIRONMENT*.
              (*info-environment* *info-environment*)
              (form (get-lambda-to-compile definition))
-             (*source-info* (make-lisp-source-info form))
+             (*source-info* (make-lisp-source-info form :parent *source-info*))
              (*toplevel-lambdas* ())
              (*block-compile* nil)
              (*allow-instrumenting* nil)
+             (*code-coverage-records* nil)
+             (*code-coverage-blocks* nil)
              (*compiler-error-bailout*
               (lambda (&optional error)
                 (declare (ignore error))