249 |
(make-sequence '(vector * *) 10 :initial-element nil) |
(make-sequence '(vector * *) 10 :initial-element nil) |
250 |
#(nil nil nil nil nil nil nil nil nil nil)) |
#(nil nil nil nil nil nil nil nil nil nil)) |
251 |
|
|
252 |
|
;;; Bit vectors |
253 |
|
|
254 |
|
(deftest make-sequence.37 |
255 |
|
(make-sequence 'bit-vector 5 :initial-element 0) |
256 |
|
#*00000) |
257 |
|
|
258 |
|
(deftest make-sequence.38 |
259 |
|
(make-sequence 'bit-vector 7 :initial-element 1) |
260 |
|
#*1111111) |
261 |
|
|
262 |
|
(deftest make-sequence.39 |
263 |
|
(make-sequence 'bit-vector 0) |
264 |
|
#*) |
265 |
|
|
266 |
|
(deftest make-sequence.40 |
267 |
|
(make-sequence '(bit-vector) 4 :initial-element 1) |
268 |
|
#*1111) |
269 |
|
|
270 |
|
(deftest make-sequence.41 |
271 |
|
(make-sequence '(bit-vector *) 10 :initial-element 0) |
272 |
|
#*0000000000) |
273 |
|
|
274 |
|
(deftest make-sequence.42 |
275 |
|
(make-sequence '(bit-vector 5) 5 :initial-element 0) |
276 |
|
#*00000) |
277 |
|
|
278 |
|
(deftest make-sequence.43 |
279 |
|
(make-sequence 'simple-bit-vector 5 :initial-element 0) |
280 |
|
#*00000) |
281 |
|
|
282 |
|
(deftest make-sequence.44 |
283 |
|
(make-sequence 'simple-bit-vector 7 :initial-element 1) |
284 |
|
#*1111111) |
285 |
|
|
286 |
|
(deftest make-sequence.45 |
287 |
|
(make-sequence 'simple-bit-vector 0) |
288 |
|
#*) |
289 |
|
|
290 |
|
(deftest make-sequence.46 |
291 |
|
(make-sequence '(simple-bit-vector) 4 :initial-element 1) |
292 |
|
#*1111) |
293 |
|
|
294 |
|
(deftest make-sequence.47 |
295 |
|
(make-sequence '(simple-bit-vector *) 10 :initial-element 0) |
296 |
|
#*0000000000) |
297 |
|
|
298 |
|
(deftest make-sequence.48 |
299 |
|
(make-sequence '(simple-bit-vector 5) 5 :initial-element 0) |
300 |
|
#*00000) |
301 |
|
|
302 |
;;; Keyword tests |
;;; Keyword tests |
303 |
|
|
304 |
(deftest make-sequence.allow-other-keys.1 |
(deftest make-sequence.allow-other-keys.1 |