diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 8794e6b5b98f5f8e734345e52d73b9cb6899ff95..490f335226b6277177dd11dad50824da18a639d9 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