9971 |
;;; Error: `#c(0 -8)' is not of the expected type `REAL' |
;;; Error: `#c(0 -8)' is not of the expected type `REAL' |
9972 |
|
|
9973 |
(deftest misc.539 |
(deftest misc.539 |
9974 |
(=t |
(notnot-mv |
9975 |
(funcall |
(complexp |
9976 |
(compile nil '(lambda (x) |
(funcall |
9977 |
(declare (OPTIMIZE SPEED (SAFETY 1)) |
(compile nil '(lambda (x) |
9978 |
(type (eql #c(0 -8)) x)) |
(declare (OPTIMIZE SPEED (SAFETY 1)) |
9979 |
(sqrt x))) |
(type (eql #c(0 -8)) x)) |
9980 |
#c(0 -8)) |
(sqrt x))) |
9981 |
#c(2 -2)) |
#c(0 -8)))) |
9982 |
t) |
t) |
9983 |
|
|
9984 |
;;; Illegal instruction |
;;; Illegal instruction |