X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1-translators.lisp;h=1c129bf4d82fbfc4ba036f7410d93b87dc49fb4d;hb=41ed816c7915806abca6b09ecd2136458f27adcc;hp=c06a99b4f99b06027aedeb13da36232bd012b170;hpb=d86eaf5880e4f8738e20a739334ef380ec98762a;p=sbcl.git

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index c06a99b..1c129bf 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -729,6 +729,8 @@
     (when (null (find-uses cont))
       (setf (continuation-asserted-type cont) new))
     (when (and (not intersects)
+	       ;; FIXME: Is it really right to look at *LEXENV* here,
+	       ;; instead of looking at the LEXENV argument? Why?
 	       (not (policy *lexenv*
 			    (= inhibit-warnings 3)))) ;FIXME: really OK to suppress?
       (compiler-warn