X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-main.lisp;h=5d81a457dd1ae61524973aeed558478b9d7216de;hb=b63c4fb9b98fa8188e17ba926e150ba417a74635;hp=3217c38797395fbd77b427779beb507d196b8257;hpb=fea8ea02847ddc0864546a02480fb3e97d6fa318;p=sbcl.git

diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp
index 3217c38..5d81a45 100644
--- a/src/compiler/target-main.lisp
+++ b/src/compiler/target-main.lisp
@@ -48,6 +48,7 @@
 	     (*source-info* (make-lisp-source-info form))
 	     (*toplevel-lambdas* ())
 	     (*block-compile* nil)
+             (*allow-instrumenting* nil)
 	     (*compiler-error-bailout*
 	      (lambda (&optional error)
                 (declare (ignore error))