diff --git a/src/compiler/float-tran-dd.lisp b/src/compiler/float-tran-dd.lisp index 4b5b1aafa879c2f1140af99ac221b797153f3955..4c38510150158c0c75b88fd2bd0eb37a1aca9979 100644 --- a/src/compiler/float-tran-dd.lisp +++ b/src/compiler/float-tran-dd.lisp @@ -57,8 +57,6 @@ (ratio (kernel::float-ratio n 'double-double-float)))) -#+double-double -(progn (defknown double-double-float-p (t) boolean (movable foldable flushable)) @@ -76,9 +74,6 @@ double-float (movable foldable flushable)) -) ; progn - -#+double-double (deftransform float-sign ((float &optional float2) (double-double-float &optional double-double-float) *) (if float2 @@ -89,7 +84,6 @@ ,temp))) '(if (minusp (float-sign (double-double-hi float))) -1w0 1w0))) -#+double-double (deftransform cis ((x) (double-double-float) *) `(multiple-value-bind (s c) (kernel::dd-%sincos x)