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

diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp
index 51c34c6..aa011e1 100644
--- a/src/compiler/target-main.lisp
+++ b/src/compiler/target-main.lisp
@@ -45,7 +45,7 @@
              ;; 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)