X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffloat-tran.lisp;h=bc7a1cd6508d3614cae6082552abbbe17170ea6b;hb=5251267b300cb967cbf547e838037a616064bd58;hp=107df29f494ae043779d40ca25e9db7b516a6ed1;hpb=334af30b26555f0bf706f7157b399bdbd4fad548;p=sbcl.git

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index 107df29..bc7a1cd 100644
--- a/src/compiler/float-tran.lisp
+++ b/src/compiler/float-tran.lisp
@@ -394,6 +394,7 @@
 		 (cos %cos %cos-quick)
 		 (tan %tan %tan-quick)))
   (destructuring-bind (name prim prim-quick) stuff
+    (declare (ignorable prim-quick))
     (deftransform name ((x) '(single-float) '* :eval-name t)
       #!+x86 (cond ((csubtypep (continuation-type x)
 			       (specifier-type '(single-float
@@ -466,7 +467,7 @@
        (float pi x)
        (float 0 x)))
 
-#!+(or sb-propagate-float-type sb-propagate-fun-type)
+;; #!+(or propagate-float-type propagate-fun-type)
 (progn
 
 ;;; The number is of type REAL.