55 |
|
|
56 |
(deftest array-fill-7 |
(deftest array-fill-7 |
57 |
(let* ((a (make-array '(5)))) |
(let* ((a (make-array '(5)))) |
58 |
(handler-case (fill a 'x :start -1) |
(classify-error (fill a 'x :start -1))) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c))) |
|
59 |
type-error) |
type-error) |
60 |
|
|
61 |
(deftest array-fill-8 |
(deftest array-fill-8 |
62 |
(let* ((a (make-array '(5)))) |
(let* ((a (make-array '(5)))) |
63 |
(handler-case (fill a 'x :start 'a) |
(classify-error (fill a 'x :start 'a))) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c))) |
|
64 |
type-error) |
type-error) |
65 |
|
|
66 |
(deftest array-fill-9 |
(deftest array-fill-9 |
67 |
(let* ((a (make-array '(5)))) |
(let* ((a (make-array '(5)))) |
68 |
(handler-case (fill a 'x :end -1) |
(classify-error (fill a 'x :end -1))) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c))) |
|
69 |
type-error) |
type-error) |
70 |
|
|
71 |
(deftest array-fill-10 |
(deftest array-fill-10 |
72 |
(let* ((a (make-array '(5)))) |
(let* ((a (make-array '(5)))) |
73 |
(handler-case (fill a 'x :end 'a) |
(classify-error (fill a 'x :end 'a))) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c))) |
|
74 |
type-error) |
type-error) |
75 |
|
|
76 |
;;; fill on arrays of fixnums |
;;; fill on arrays of fixnums |
119 |
|
|
120 |
(deftest array-fixnum-fill-7 |
(deftest array-fixnum-fill-7 |
121 |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
122 |
(handler-case (fill a 10 :start -1) |
(classify-error (fill a 10 :start -1))) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c))) |
|
123 |
type-error) |
type-error) |
124 |
|
|
125 |
(deftest array-fixnum-fill-8 |
(deftest array-fixnum-fill-8 |
126 |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
127 |
(handler-case (fill a 100 :start 'a) |
(classify-error (fill a 100 :start 'a))) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c))) |
|
128 |
type-error) |
type-error) |
129 |
|
|
130 |
(deftest array-fixnum-fill-9 |
(deftest array-fixnum-fill-9 |
131 |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
132 |
(handler-case (fill a -5 :end -1) |
(classify-error (fill a -5 :end -1))) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c))) |
|
133 |
type-error) |
type-error) |
134 |
|
|
135 |
(deftest array-fixnum-fill-10 |
(deftest array-fixnum-fill-10 |
136 |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
(let* ((a (make-array '(5) :element-type 'fixnum))) |
137 |
(handler-case (fill a 17 :end 'a) |
(classify-error (fill a 17 :end 'a))) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c))) |
|
138 |
type-error) |
type-error) |
139 |
|
|
140 |
;;; fill on arrays of unsigned eight bit bytes |
;;; fill on arrays of unsigned eight bit bytes |
171 |
t (0 0 0 0 0)) |
t (0 0 0 0 0)) |
172 |
|
|
173 |
(deftest array-unsigned-byte8-fill-7 |
(deftest array-unsigned-byte8-fill-7 |
174 |
(handler-case (array-unsigned-byte-fill-test-fn 8 0 :start -1) |
(classify-error (array-unsigned-byte-fill-test-fn 8 0 :start -1)) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c)) |
|
175 |
type-error) |
type-error) |
176 |
|
|
177 |
(deftest array-unsigned-byte8-fill-8 |
(deftest array-unsigned-byte8-fill-8 |
178 |
(handler-case (array-unsigned-byte-fill-test-fn 8 100 :start 'a) |
(classify-error (array-unsigned-byte-fill-test-fn 8 100 :start 'a)) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c)) |
|
179 |
type-error) |
type-error) |
180 |
|
|
181 |
(deftest array-unsigned-byte8-fill-9 |
(deftest array-unsigned-byte8-fill-9 |
182 |
(handler-case (array-unsigned-byte-fill-test-fn 8 19 :end -1) |
(classify-error (array-unsigned-byte-fill-test-fn 8 19 :end -1)) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c)) |
|
183 |
type-error) |
type-error) |
184 |
|
|
185 |
(deftest array-unsigned-byte8-fill-10 |
(deftest array-unsigned-byte8-fill-10 |
186 |
(handler-case (array-unsigned-byte-fill-test-fn 8 17 :end 'a) |
(classify-error (array-unsigned-byte-fill-test-fn 8 17 :end 'a)) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c)) |
|
187 |
type-error) |
type-error) |
188 |
|
|
189 |
|
|