From f3ebe966931df1082924cded131db5103c8c82f9 Mon Sep 17 00:00:00 2001 From: "Tarn W. Burton" Date: Tue, 6 Aug 2024 10:54:24 -0400 Subject: [PATCH] Use float-triple --- code/floating-point-printers.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/floating-point-printers.lisp b/code/floating-point-printers.lisp index 6c4ca8c..9cb7eeb 100644 --- a/code/floating-point-printers.lisp +++ b/code/floating-point-printers.lisp @@ -34,12 +34,12 @@ (coerce value 'single-float)))) (multiple-value-call func client coerced-value - (quaviver:float-integer client 10 coerced-value)))))) + (quaviver:float-triple client 10 coerced-value)))))) (defun round-away-from-zero (x n) (multiple-value-bind (q r) (truncate x n) - (if (>= (/ r n) 1/2) + (if (>= (* 2 r) n) (1+ q) q)))