From f6b8d45beab3561b13b8fe8455c05f6230f40fc4 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 17 Jul 2004 20:10:00 +0000
Subject: [PATCH] Improve debuggability of some of the bignum comparison tests

---
 ansi-tests/number-comparison.lsp | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/ansi-tests/number-comparison.lsp b/ansi-tests/number-comparison.lsp
index e1ce4173..b78d4feb 100644
--- a/ansi-tests/number-comparison.lsp
+++ b/ansi-tests/number-comparison.lsp
@@ -1196,7 +1196,7 @@
 	      nconc
 	      (let ((i (+ r (ceiling (rational x)))))
 		(unless (< x i)
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.1b
@@ -1209,7 +1209,7 @@
 	      nconc
 	      (let ((i (- (floor (rational x)) r)))
 		(unless (< i x)
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.2a
@@ -1222,7 +1222,7 @@
 	      nconc
 	      (let ((i (+ r (ceiling (rational x)))))
 		(unless (> i x)
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.2b
@@ -1235,7 +1235,7 @@
 	      nconc
 	      (let ((i (- (floor (rational x)) r)))
 		(unless (> x i)
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.3a
@@ -1248,7 +1248,7 @@
 	      nconc
 	      (let ((i (+ r (ceiling (rational x)))))
 		(when (or (= x i) (= i x))
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.3b
@@ -1261,7 +1261,7 @@
 	      nconc
 	      (let ((i (- (floor (rational x)) r)))
 		(when (or (= x i) (= i x))
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.4a
@@ -1274,7 +1274,7 @@
 	      nconc
 	      (let ((i (+ r (ceiling (rational x)))))
 		(unless (and (/= i x) (/= x i))
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.4b
@@ -1287,7 +1287,7 @@
 	      nconc
 	      (let ((i (- (floor (rational x)) r)))
 		(unless (and (/= i x) (/= x i))
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.5a
@@ -1300,7 +1300,7 @@
 	      nconc
 	      (let ((i (+ r (ceiling (rational x)))))
 		(unless (<= x i)
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.5b
@@ -1313,7 +1313,7 @@
 	      nconc
 	      (let ((i (- (floor (rational x)) r)))
 		(unless (<= i x)
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.6a
@@ -1326,7 +1326,7 @@
 	      nconc
 	      (let ((i (+ r (ceiling (rational x)))))
 		(unless (>= i x)
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.6b
@@ -1339,7 +1339,7 @@
 	      nconc
 	      (let ((i (- (floor (rational x)) r)))
 		(unless (>= x i)
-		  (list (list x i))))))
+		  (list (list r x i))))))
   nil)
 
 (deftest bignum.float.compare.7
-- 
GitLab