X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-main.lisp;h=5d81a457dd1ae61524973aeed558478b9d7216de;hb=095a47764e687fa76cf0e2803633d30c65c00f40;hp=8a1cffb07d3986f7952bbc7f04d72754e5a4366d;hpb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;p=sbcl.git

diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp
index 8a1cffb..5d81a45 100644
--- a/src/compiler/target-main.lisp
+++ b/src/compiler/target-main.lisp
@@ -48,8 +48,10 @@
 	     (*source-info* (make-lisp-source-info form))
 	     (*toplevel-lambdas* ())
 	     (*block-compile* nil)
+             (*allow-instrumenting* nil)
 	     (*compiler-error-bailout*
-	      (lambda ()
+	      (lambda (&optional error)
+                (declare (ignore error))
 		(compiler-mumble
 		 "~2&fatal error, aborting compilation~%")
 		(return-from actually-compile (values nil t nil))))