54 |
t (x x x x x)) |
t (x x x x x)) |
55 |
|
|
56 |
(deftest array-fill-7 |
(deftest array-fill-7 |
57 |
(let* ((a (make-array '(5)))) |
(classify-error |
58 |
(classify-error (fill a 'x :start -1))) |
(let* ((a (make-array '(5)))) |
59 |
|
(fill a 'x :start -1))) |
60 |
type-error) |
type-error) |
61 |
|
|
62 |
(deftest array-fill-8 |
(deftest array-fill-8 |
63 |
(let* ((a (make-array '(5)))) |
(classify-error |
64 |
(classify-error (fill a 'x :start 'a))) |
(let* ((a (make-array '(5)))) |
65 |
|
(fill a 'x :start 'a))) |
66 |
type-error) |
type-error) |
67 |
|
|
68 |
(deftest array-fill-9 |
(deftest array-fill-9 |
69 |
(let* ((a (make-array '(5)))) |
(classify-error |
70 |
(classify-error (fill a 'x :end -1))) |
(let* ((a (make-array '(5)))) |
71 |
|
(fill a 'x :end -1))) |
72 |
type-error) |
type-error) |
73 |
|
|
74 |
(deftest array-fill-10 |
(deftest array-fill-10 |
75 |
(let* ((a (make-array '(5)))) |
(classify-error |
76 |
(classify-error (fill a 'x :end 'a))) |
(let* ((a (make-array '(5)))) |
77 |
|
(fill a 'x :end 'a))) |
78 |
type-error) |
type-error) |
79 |
|
|
80 |
;;; fill on arrays of fixnums |
;;; fill on arrays of fixnums |
122 |
t (-1 -1 -1 -1 -1)) |
t (-1 -1 -1 -1 -1)) |
123 |
|
|
124 |
(deftest array-fixnum-fill-7 |
(deftest array-fixnum-fill-7 |
125 |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
(classify-error |
126 |
(classify-error (fill a 10 :start -1))) |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
127 |
|
(fill a 10 :start -1))) |
128 |
type-error) |
type-error) |
129 |
|
|
130 |
(deftest array-fixnum-fill-8 |
(deftest array-fixnum-fill-8 |
131 |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
(classify-error |
132 |
(classify-error (fill a 100 :start 'a))) |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
133 |
|
(fill a 100 :start 'a))) |
134 |
type-error) |
type-error) |
135 |
|
|
136 |
(deftest array-fixnum-fill-9 |
(deftest array-fixnum-fill-9 |
137 |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
(classify-error |
138 |
(classify-error (fill a -5 :end -1))) |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
139 |
|
(fill a -5 :end -1))) |
140 |
type-error) |
type-error) |
141 |
|
|
142 |
(deftest array-fixnum-fill-10 |
(deftest array-fixnum-fill-10 |
143 |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
(classify-error |
144 |
(classify-error (fill a 17 :end 'a))) |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
145 |
|
(fill a 17 :end 'a))) |
146 |
type-error) |
type-error) |
147 |
|
|
148 |
;;; fill on arrays of unsigned eight bit bytes |
;;; fill on arrays of unsigned eight bit bytes |