9825 |
(unless (eql expected actual) |
(unless (eql expected actual) |
9826 |
(list expected actual)))) |
(list expected actual)))) |
9827 |
nil) |
nil) |
9828 |
|
|
9829 |
|
;;; cmucl (Jan 2005 snapshot) |
9830 |
|
|
9831 |
|
;;; Segmentation fault |
9832 |
|
|
9833 |
|
(deftest misc.530 |
9834 |
|
(let* ((v (make-array |
9835 |
|
'(11) :element-type 'double-float |
9836 |
|
:initial-contents |
9837 |
|
'(56826.586316245484d0 -57680.53641925701d0 68651.27735979737d0 |
9838 |
|
30934.627728043164d0 47252.736017400945d0 35129.46986219467d0 |
9839 |
|
-57804.412938803005d0 13000.374416975968d0 50263.681826551256d0 |
9840 |
|
89386.08276072948d0 -89508.77479231959d0))) |
9841 |
|
(form |
9842 |
|
`(lambda (r) |
9843 |
|
(declare (optimize speed (safety 1)) |
9844 |
|
(type (simple-array t nil) r)) |
9845 |
|
(setf (aref r) |
9846 |
|
(array-has-fill-pointer-p ,v)))) |
9847 |
|
(r (make-array nil))) |
9848 |
|
(funcall (compile nil form) r) |
9849 |
|
(eqlt (aref r) (array-has-fill-pointer-p v))) |
9850 |
|
t) |
9851 |
|
|
9852 |
|
;;; gcl |
9853 |
|
;;; Problem with 0-dim char arrays |
9854 |
|
;;; Produces wrong return value (#\\320). |
9855 |
|
|
9856 |
|
(deftest misc.532 |
9857 |
|
(let ((r (make-array nil :element-type 'base-char))) |
9858 |
|
(funcall |
9859 |
|
(compile |
9860 |
|
nil |
9861 |
|
'(lambda (r c) |
9862 |
|
(declare (optimize speed (safety 1)) |
9863 |
|
(type (simple-array base-char nil) r) |
9864 |
|
(type base-char c)) |
9865 |
|
(setf (aref r) c) |
9866 |
|
(values))) |
9867 |
|
r #\Z) |
9868 |
|
(aref r)) |
9869 |
|
#\Z) |
9870 |
|
|
9871 |
|
;;; sbcl 0.8.19.32 |
9872 |
|
;;; Bound is not *, a INTEGER or a list of a INTEGER: -51494/29889 |
9873 |
|
|
9874 |
|
(deftest misc.533 |
9875 |
|
(let* ((r (make-array nil)) |
9876 |
|
(c #c(208 -51494/29889)) |
9877 |
|
(form `(lambda (r p1) |
9878 |
|
(declare (optimize speed (safety 1)) |
9879 |
|
(type (simple-array t nil) r) |
9880 |
|
(type number p1)) |
9881 |
|
(setf (aref r) (+ (the (eql ,c) p1) -319284)) |
9882 |
|
(values))) |
9883 |
|
(fn (compile nil form))) |
9884 |
|
(funcall fn r c) |
9885 |
|
(eqlt (aref r) (+ -319284 c))) |
9886 |
|
t) |
9887 |
|
|
9888 |
|
|