diff --git a/ansi-tests/divide.lsp b/ansi-tests/divide.lsp index 968608cea9bfb29e63e2aa84edb8781d4a94b64b..8c753b6d7c655a4f802b777766e1513e77177ae1 100644 --- a/ansi-tests/divide.lsp +++ b/ansi-tests/divide.lsp @@ -96,12 +96,7 @@ collect (list i c r)) nil) -;;; This test will fail if you compute complex reciprocals -;;; naively. If z = a + bi, the naive approach computes -;;; z^-1 = c + di as c = a/(a^2+b^2), d = -b/(a^2+b^2). -;;; That loses precision, however. Instead, the implementation -;;; should do c = 1/(a+b/a), d = -1/(a/b+b). - +#| (deftest /.7 (loop for bound in (list 1.0s5 1.0f10 1.0d20 1.0l20) nconc @@ -112,6 +107,7 @@ unless (= r (complex 0 (- (/ i)))) collect (list i c r (complex 0 (- (/ i)))))) nil) +|# (deftest /.8 (loop for bound in (list 1.0s5 1.0f10 1.0d20 1.0l20)