9885 |
(eqlt (aref r) (+ -319284 c))) |
(eqlt (aref r) (+ -319284 c))) |
9886 |
t) |
t) |
9887 |
|
|
9888 |
|
;;; sbcl 0.8.19.35 |
9889 |
|
;;; Incorrect return value from conditional |
9890 |
|
|
9891 |
|
(deftest misc.534 |
9892 |
|
(let ((r0 (make-array nil))) |
9893 |
|
(funcall |
9894 |
|
(compile |
9895 |
|
nil |
9896 |
|
'(lambda (r p1 p2 p3) |
9897 |
|
(declare (optimize speed (safety 1)) |
9898 |
|
(type (eql 4134713351/6105637898) p2) |
9899 |
|
(type (eql 2685) p3)) |
9900 |
|
(setf (aref r) |
9901 |
|
(if p1 |
9902 |
|
(the (eql 4134713351/6105637898) p2) |
9903 |
|
(the (integer * 8391301) p3))))) |
9904 |
|
r0 t 4134713351/6105637898 2685) |
9905 |
|
(aref r0)) |
9906 |
|
4134713351/6105637898) |
9907 |
|
|