X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicy.lisp;h=d3bfe865c1684cc29a8dc76f81c76fd4e23bc7b1;hb=b63c4fb9b98fa8188e17ba926e150ba417a74635;hp=47becfd21b4ac2989bdc7e286bce45d8bd24b63a;hpb=0794cd3908a441222f430ba0cf3bb7c3e1a96c63;p=sbcl.git

diff --git a/src/compiler/policy.lisp b/src/compiler/policy.lisp
index 47becfd..d3bfe86 100644
--- a/src/compiler/policy.lisp
+++ b/src/compiler/policy.lisp
@@ -73,8 +73,9 @@
 		  (cons name 1))
 		*policy-qualities*))
   ;; not actually POLICY, but very similar
-  (setf *handled-conditions* nil))
-  
+  (setf *handled-conditions* nil
+	*disabled-package-locks* nil))
+
 ;;; On the cross-compilation host, we initialize immediately (not
 ;;; waiting for "cold init", since cold init doesn't exist on
 ;;; cross-compilation host).