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