X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsrctran.lisp;h=a6dbdaea09ff0db7e50ce6c5f716e91a900db59c;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=f70c85467f86bafffbbd816820677cfb5ab127dd;hpb=a8fa26a6e9804d3548f5bca9361a91345a689099;p=sbcl.git

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index f70c854..a6dbdae 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -3279,8 +3279,9 @@
 	  ((= nargs 1) `(progn ,@args t))
 	  ((= nargs 2)
 	   `(if (,predicate ,(first args) ,(second args)) nil t))
-	  ((not (policy nil (and (>= speed space)
-				 (>= speed compilation-speed))))
+	  ((not (policy *lexenv*
+			(and (>= speed space)
+			     (>= speed compilation-speed))))
 	   (values nil t))
 	  (t
 	   (let ((vars (make-gensym-list nargs)))