0.6.12.3:

[sbcl.git] / src / compiler / float-tran.lisp

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index 107df29..bc7a1cd 100644 (file)
--- 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.