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