Commit 45c794f3 authored by pfdietz's avatar pfdietz
Browse files

Relaxed test misc.539

parent 0629d97b
...@@ -9971,14 +9971,14 @@ Broken at C::WT-MAKE-CLOSURE. ...@@ -9971,14 +9971,14 @@ Broken at C::WT-MAKE-CLOSURE.
;;; Error: `#c(0 -8)' is not of the expected type `REAL' ;;; Error: `#c(0 -8)' is not of the expected type `REAL'
(deftest misc.539 (deftest misc.539
(=t (notnot-mv
(funcall (complexp
(compile nil '(lambda (x) (funcall
(declare (OPTIMIZE SPEED (SAFETY 1)) (compile nil '(lambda (x)
(type (eql #c(0 -8)) x)) (declare (OPTIMIZE SPEED (SAFETY 1))
(sqrt x))) (type (eql #c(0 -8)) x))
#c(0 -8)) (sqrt x)))
#c(2 -2)) #c(0 -8))))
t) t)
;;; Illegal instruction ;;; Illegal instruction
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment