Use quaviver write-digits

s-expressionists · Oct 4, 2024 · 1169397 · 1169397
1 parent a972d7a
commit 1169397
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/code/float.lisp b/code/float.lisp
@@ -107,4 +107,7 @@
                                              :fractional-marker #\.
                                              :fractional-position 1)
                       (write-exponent-marker value stream)
-                      (print-integer client (1- exponent) 10 nil stream)))))))))
+                      (decf exponent)
+                      (when (minusp exponent)
+                        (write-char #\- stream))
+                      (quaviver:write-digits 10 (abs exponent) stream)))))))))