X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Ftarget-main.lisp;h=5d81a457dd1ae61524973aeed558478b9d7216de;hb=079ef9dad558ca07cb8178ef428bf738112174fa;hp=b031250a0c27053f05c0fa96dfd3aeec7c8e6cb5;hpb=0794cd3908a441222f430ba0cf3bb7c3e1a96c63;p=sbcl.git

diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp
index b031250..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))))
@@ -72,6 +74,8 @@
 	     (*policy* (lexenv-policy *lexenv*))
 	     ;; see above
 	     (*handled-conditions* (lexenv-handled-conditions *lexenv*))
+	     ;; ditto
+	     (*disabled-package-locks* (lexenv-disabled-package-locks *lexenv*))
 	     ;; FIXME: ANSI doesn't say anything about CL:COMPILE
 	     ;; interacting with these variables, so we shouldn't. As
 	     ;; of SBCL 0.6.7, COMPILE-FILE controls its verbosity by