From c93f78426351cc67036ef53b711837c1264ec5f6 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 5 Sep 2003 12:38:03 +0000
Subject: [PATCH] Removed problematic /.7

---
 ansi-tests/divide.lsp | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/ansi-tests/divide.lsp b/ansi-tests/divide.lsp
index 968608ce..8c753b6d 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)
-- 
GitLab