From 8ac0ca5eb94cb4f3a64119e9d21faf6f0fa7f4d8 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 14 May 2005 01:47:08 +0000 Subject: [PATCH] Fix problem with least-positive-long-float in clisp --- 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 bd0f03d7..e57f4114 100644 --- a/ansi-tests/number-comparison.lsp +++ b/ansi-tests/number-comparison.lsp @@ -1246,7 +1246,7 @@ (deftest bignum.float.compare.1a (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1259,7 +1259,7 @@ (deftest bignum.float.compare.1b (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1272,7 +1272,7 @@ (deftest bignum.float.compare.2a (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1285,7 +1285,7 @@ (deftest bignum.float.compare.2b (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1298,7 +1298,7 @@ (deftest bignum.float.compare.3a (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1311,7 +1311,7 @@ (deftest bignum.float.compare.3b (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1324,7 +1324,7 @@ (deftest bignum.float.compare.4a (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1337,7 +1337,7 @@ (deftest bignum.float.compare.4b (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1350,7 +1350,7 @@ (deftest bignum.float.compare.5a (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1363,7 +1363,7 @@ (deftest bignum.float.compare.5b (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1376,7 +1376,7 @@ (deftest bignum.float.compare.6a (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) @@ -1389,7 +1389,7 @@ (deftest bignum.float.compare.6b (loop for x in *floats* - when (or (<= (abs x) 1.0) + when (or (= x 0) (< (abs (log (abs x))) 10000)) nconc (loop for r = (1+ (random (ash 1 (random 32)))) -- GitLab