Index: /trunk/tests/ansi-tests/print-floats.lsp
===================================================================
--- /trunk/tests/ansi-tests/print-floats.lsp	(revision 15398)
+++ /trunk/tests/ansi-tests/print-floats.lsp	(revision 15399)
@@ -29,5 +29,6 @@
 	   for s2 = (format nil "~A.0" i)
 	   repeat 10000
-	   unless (or (/= i (rational f)) ; not enough bits
+	   unless (or (= i -10000000) ; the only value that's out of range
+                      (/= i (rational f)) ; not enough bits
 		   ;; (> (nth-value 1 (integer-decode-float f)) 0)
 		   (equalp s1 s2))
@@ -124,7 +125,8 @@
 	   for s2 = (format nil "~A.0" i)
 	   repeat 10000
-	   unless (or (/= i (rational f))  ;; not enough bits
-		   ;; (> (nth-value 1 (integer-decode-float f)) 0)
-		   (equalp s1 s2))
+	   unless (or (= i -10000000) ; out of range
+                      (/= i (rational f))  ;; not enough bits
+                      ;; (> (nth-value 1 (integer-decode-float f)) 0)
+                      (equalp s1 s2))
 	   collect (list i f s1 s2))))
   nil)
@@ -219,7 +221,8 @@
 	   for s2 = (format nil "~A.0" i)
 	   repeat 10000
-	   unless (or (/= i (rational f))  ;; not enough bits
-		   ;; (> (nth-value 1 (integer-decode-float f)) 0)
-		   (equalp s1 s2))
+	   unless (or (= i -10000000)
+                      (/= i (rational f))  ;; not enough bits
+                      ;; (> (nth-value 1 (integer-decode-float f)) 0)
+                      (equalp s1 s2))
 	   collect (list i f s1 s2))))
   nil)
@@ -314,7 +317,8 @@
 	   for s2 = (format nil "~A.0" i)
 	   repeat 10000
-	   unless (or (/= i (rational f)) ;; not enough bits
-		   ;; (> (nth-value 1 (integer-decode-float f)) 0)
-		   (equalp s1 s2))
+	   unless (or (= i -10000000)
+                      (/= i (rational f)) ;; not enough bits
+                      ;; (> (nth-value 1 (integer-decode-float f)) 0)
+                      (equalp s1 s2))
 	   collect (list i f s1 s2))))
   nil)