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