diff --git a/ansi-tests/number-comparison.lsp b/ansi-tests/number-comparison.lsp index e1ce4173d660818b81a9b76623d9dddaab9ca518..b78d4feb4f7e7066b8aceb8c2fdb7b6764200617 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