From f9be60b19ca38fbbf34dc64bf5442f119afe2725 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sat, 1 Mar 2014 08:43:26 -0800 Subject: [PATCH] Fix ticket 93. * Round the number to least-positive-foo-float when possible, but still throw an error if it's too small but not zero. * Update comments to mention CLHS 2.3.1.1. --- src/code/reader.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/code/reader.lisp b/src/code/reader.lisp index 27c18ae34..b06230ce2 100644 --- a/src/code/reader.lisp +++ b/src/code/reader.lisp @@ -1839,15 +1839,15 @@ the end of the stream." least-positive-single-float) (double-float least-positive-double-float) + #+double-double (double-double-float - (kernel:make-double-double-float least-positive-double-float - 0d0))))) + ext:least-positive-double-double-float)))) (if (>= (* 2 ratio) float-limit) (setf result float-limit) (error _"Underflow")))) result)) (error () - (%reader-error stream _"Number not representable as ~S: ~S" + (%reader-error stream _"Number not representable as a ~S: ~S" float-format (/ number divisor))))) -- GitLab