From 45c794f31d3615c7083f7c49a9f19887f33f012f Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 27 Feb 2005 01:26:40 +0000
Subject: [PATCH] Relaxed test misc.539

---
 ansi-tests/misc.lsp | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 8794e6b5..490f3352 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -9971,14 +9971,14 @@ Broken at C::WT-MAKE-CLOSURE.
 ;;; Error: `#c(0 -8)' is not of the expected type `REAL'
 
 (deftest misc.539
-  (=t
-   (funcall
-    (compile nil '(lambda (x)
-		    (declare (OPTIMIZE SPEED (SAFETY 1))
-			     (type (eql #c(0 -8)) x))
-		    (sqrt x)))
-    #c(0 -8))
-   #c(2 -2))
+  (notnot-mv
+   (complexp
+    (funcall
+     (compile nil '(lambda (x)
+		     (declare (OPTIMIZE SPEED (SAFETY 1))
+			      (type (eql #c(0 -8)) x))
+		     (sqrt x)))
+     #c(0 -8))))
   t)
 
 ;;; Illegal instruction
-- 
GitLab