225 |
(make-string len :initial-element #\))))))) |
(make-string len :initial-element #\))))))) |
226 |
t) |
t) |
227 |
|
|
228 |
|
(deftest make-array.29 |
229 |
|
(make-array-with-checks '(5) :element-type '(integer 0 (256)) |
230 |
|
:initial-contents '(0 5 255 119 57)) |
231 |
|
#(0 5 255 119 57)) |
232 |
|
|
233 |
|
(deftest make-array.30 |
234 |
|
(make-array-with-checks '(5) :element-type '(integer -128 127) |
235 |
|
:initial-contents '(-10 5 -128 86 127)) |
236 |
|
#(-10 5 -128 86 127)) |
237 |
|
|
238 |
|
(deftest make-array.31 |
239 |
|
(make-array-with-checks '(5) :element-type '(integer 0 (65536)) |
240 |
|
:initial-contents '(0 100 65535 7623 13)) |
241 |
|
#(0 100 65535 7623 13)) |
242 |
|
|
243 |
|
(deftest make-array.32 |
244 |
|
(make-array-with-checks '(5) :element-type 'fixnum |
245 |
|
:initial-contents '(1 2 3 4 5)) |
246 |
|
#(1 2 3 4 5)) |
247 |
|
|
248 |
|
(deftest make-array.33 |
249 |
|
(make-array-with-checks '(5) :element-type 'short-float |
250 |
|
:initial-contents '(1.0s0 2.0s0 3.0s0 4.0s0 5.0s0)) |
251 |
|
#(1.0s0 2.0s0 3.0s0 4.0s0 5.0s0)) |
252 |
|
|
253 |
|
(deftest make-array.34 |
254 |
|
(make-array-with-checks '(5) :element-type 'single-float |
255 |
|
:initial-contents '(1.0f0 2.0f0 3.0f0 4.0f0 5.0f0)) |
256 |
|
#(1.0f0 2.0f0 3.0f0 4.0f0 5.0f0)) |
257 |
|
|
258 |
|
(deftest make-array.35 |
259 |
|
(make-array-with-checks '(5) :element-type 'double-float |
260 |
|
:initial-contents '(1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) |
261 |
|
#(1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) |
262 |
|
|
263 |
|
(deftest make-array.36 |
264 |
|
(make-array-with-checks '(5) :element-type 'long-float |
265 |
|
:initial-contents '(1.0l0 2.0l0 3.0l0 4.0l0 5.0l0)) |
266 |
|
#(1.0l0 2.0l0 3.0l0 4.0l0 5.0l0)) |
267 |
|
|
268 |
|
|
269 |
;;; Adjustable arrays |
;;; Adjustable arrays |
270 |
|
|
271 |
(deftest make-array.adjustable.1 |
(deftest make-array.adjustable.1 |