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