Skip to content
Snippets Groups Projects
Commit 268309ac authored by Raymond Toy's avatar Raymond Toy
Browse files

Remove #+double-double conditionals.

This file should only be compiled when double-double support is
available.
parent b6a9e4dd
No related branches found
No related tags found
No related merge requests found
...@@ -57,8 +57,6 @@ ...@@ -57,8 +57,6 @@
(ratio (ratio
(kernel::float-ratio n 'double-double-float)))) (kernel::float-ratio n 'double-double-float))))
#+double-double
(progn
(defknown double-double-float-p (t) (defknown double-double-float-p (t)
boolean boolean
(movable foldable flushable)) (movable foldable flushable))
...@@ -76,9 +74,6 @@ ...@@ -76,9 +74,6 @@
double-float double-float
(movable foldable flushable)) (movable foldable flushable))
) ; progn
#+double-double
(deftransform float-sign ((float &optional float2) (deftransform float-sign ((float &optional float2)
(double-double-float &optional double-double-float) *) (double-double-float &optional double-double-float) *)
(if float2 (if float2
...@@ -89,7 +84,6 @@ ...@@ -89,7 +84,6 @@
,temp))) ,temp)))
'(if (minusp (float-sign (double-double-hi float))) -1w0 1w0))) '(if (minusp (float-sign (double-double-hi float))) -1w0 1w0)))
#+double-double
(deftransform cis ((x) (double-double-float) *) (deftransform cis ((x) (double-double-float) *)
`(multiple-value-bind (s c) `(multiple-value-bind (s c)
(kernel::dd-%sincos x) (kernel::dd-%sincos x)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment