From e6da7db142dd0e9ed16cd53c012fd9db7fb15642 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 6 Jun 2015 18:24:23 -0700
Subject: [PATCH] Wrap the entire file in double-double conditional.

This is so that we can always compile and load this file, even if
double-double isn't supported. (But all currently supported
architectures support double-doubles.)
---
 src/compiler/float-tran-dd.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/compiler/float-tran-dd.lisp b/src/compiler/float-tran-dd.lisp
index 4c3851015..93de466bc 100644
--- a/src/compiler/float-tran-dd.lisp
+++ b/src/compiler/float-tran-dd.lisp
@@ -19,6 +19,8 @@
 (in-package "C")
 (intl:textdomain "cmucl")
 
+#+double-double
+(progn
 (defknown %double-double-float (real)
   double-double-float
   (movable foldable flushable))
@@ -685,3 +687,4 @@
 	(kernel:double-double-lo a)
 	(kernel:double-double-hi b)
 	(kernel:double-double-lo b)))
+) ; end progn
-- 
GitLab