X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=307d76224d37b334e6ab3e26e27a0f5956793abe;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=27a7497953f1bb0e057eac7e28f17b90d0656b8c;hpb=6c765578c8dc4bcc7798e37c9918715f198b30da;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 27a7497..307d762 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -829,7 +829,7 @@
 			     type
 			     (type-approx-intersection2 old-type type))))
 	       (cond ((eq int *empty-type*)
-		      (unless (policy nil (= inhibit-warnings 3))
+		      (unless (policy *lexenv* (= inhibit-warnings 3))
 			(compiler-warning
 			 "The type declarations ~S and ~S for ~S conflict."
 			 (type-specifier old-type) (type-specifier type)
@@ -937,7 +937,7 @@
 		    name "in an inline or notinline declaration")))
 	      (etypecase found
 		(functional
-		 (when (policy nil (>= speed inhibit-warnings))
+		 (when (policy *lexenv* (>= speed inhibit-warnings))
 		   (compiler-note "ignoring ~A declaration not at ~
 				   definition of local function:~%  ~S"
 				  sense name)))
@@ -1029,7 +1029,7 @@
 			       `(values ,@types))
 			   cont res 'values))))
       (dynamic-extent
-       (when (policy nil (> speed inhibit-warnings))
+       (when (policy *lexenv* (> speed inhibit-warnings))
 	 (compiler-note
 	  "compiler limitation:~
            ~%  There's no special support for DYNAMIC-EXTENT (so it's ignored)."))
@@ -1510,7 +1510,7 @@
 	      (n-allowp (gensym "N-ALLOWP-"))
 	      (n-losep (gensym "N-LOSEP-"))
 	      (allowp (or (optional-dispatch-allowp res)
-			  (policy nil (zerop safety)))))
+			  (policy *lexenv* (zerop safety)))))
 
 	  (temps `(,n-index (1- ,n-count)) n-key n-value-temp)
 	  (body `(declare (fixnum ,n-index) (ignorable ,n-key ,n-value-temp)))
@@ -2572,7 +2572,8 @@
     (when (null (find-uses cont))
       (setf (continuation-asserted-type cont) new))
     (when (and (not intersects)
-	       (not (policy nil (= inhibit-warnings 3)))) ;FIXME: really OK to suppress?
+	       (not (policy *lexenv*
+			    (= inhibit-warnings 3)))) ;FIXME: really OK to suppress?
       (compiler-warning
        "The type ~S in ~S declaration conflicts with an enclosing assertion:~%   ~S"
        (type-specifier ctype)