X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=14e699c9b01bb49d750e273416c04f02ce222131;hb=82e0a78df47685519b12683f495d7ae19e07d3cf;hp=42325f988a1ea1ac16a20b4dee8a1e25e4da861a;hpb=64bf93a97814ea1caf62bbdcc7ef43e2fbfc8f73;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 42325f9..14e699c 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -280,13 +280,13 @@
 
   (values))
 
-;;; If policy is auspicious, Call is not in an XEP, and we don't seem
+;;; If policy is auspicious, CALL is not in an XEP, and we don't seem
 ;;; to be in an infinite recursive loop, then change the reference to
 ;;; reference a fresh copy. We return whichever function we decide to
 ;;; reference.
 (defun maybe-expand-local-inline (fun ref call)
   (if (and (policy call
-		   (and (>= speed space) (>= speed cspeed)))
+		   (and (>= speed space) (>= speed compilation-speed)))
 	   (not (eq (functional-kind (node-home-lambda call)) :external))
 	   (not *converting-for-interpreter*)
 	   (inline-expansion-ok call))
@@ -519,7 +519,8 @@
 	 (arglist (optional-dispatch-arglist fun))
 	 (args (combination-args call))
 	 (more (nthcdr max args))
-	 (flame (policy call (or (> speed brevity) (> space brevity))))
+	 (flame (policy call (or (> speed inhibit-warnings)
+				 (> space inhibit-warnings))))
 	 (loser nil)
 	 (temps (make-gensym-list max))
 	 (more-temps (make-gensym-list (length more))))