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