From cea9b728314077c17cb79ea7cda6517c9cd13fb6 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 13 Jul 2006 19:54:47 +0000
Subject: [PATCH] Oops.  Use 0d0 instead of 0w0 when creating a
 double-double-float in dd-cssqs.

---
 code/irrat-dd.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/irrat-dd.lisp b/code/irrat-dd.lisp
index 5fb260e56..0c814fba9 100644
--- a/code/irrat-dd.lisp
+++ b/code/irrat-dd.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat-dd.lisp,v 1.3 2006/07/07 18:26:43 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat-dd.lisp,v 1.4 2006/07/13 19:54:47 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1483,7 +1483,7 @@ pi/4    11001001000011111101101010100010001000010110100011000 010001101001100010
 			(float-infinity-p rho))
 		    (or (float-infinity-p (abs x))
 			(float-infinity-p (abs y))))
-	       (values (%make-double-double-float ext:double-float-positive-infinity 0w0)
+	       (values (%make-double-double-float ext:double-float-positive-infinity 0d0)
 		       0))
 	      ((let ((threshold #.(/ least-positive-double-float
 				     double-float-epsilon))
-- 
GitLab