245 |
(make-sequence '(simple-vector) 10 :initial-element nil) |
(make-sequence '(simple-vector) 10 :initial-element nil) |
246 |
#(nil nil nil nil nil nil nil nil nil nil)) |
#(nil nil nil nil nil nil nil nil nil nil)) |
247 |
|
|
248 |
|
(deftest make-sequence.36 |
249 |
|
(make-sequence '(vector * *) 10 :initial-element nil) |
250 |
|
#(nil nil nil nil nil nil nil nil nil nil)) |
251 |
|
|
252 |
;;; Keyword tests |
;;; Keyword tests |
253 |
|
|
279 |
;;; Tests for errors |
;;; Tests for errors |
280 |
|
|
281 |
(deftest make-sequence.error.1 |
(deftest make-sequence.error.1 |
282 |
(signals-error (make-sequence 'symbol 10) type-error) |
(signals-error-always (make-sequence 'symbol 10) type-error) |
283 |
t) |
t t) |
284 |
|
|
285 |
(deftest make-sequence.error.2 |
(deftest make-sequence.error.2 |
286 |
(signals-error (make-sequence 'null 1) type-error) |
(signals-error (make-sequence 'null 1) type-error) |
333 |
t) |
t) |
334 |
|
|
335 |
(deftest make-sequence.error.14 |
(deftest make-sequence.error.14 |
336 |
(signals-error (locally (make-sequence 'symbol 10) t) |
(signals-error-always (locally (make-sequence 'symbol 10) t) |
337 |
type-error) |
type-error) |
338 |
|
t t) |
339 |
|
|
340 |
|
(deftest make-sequence.error.15 |
341 |
|
(if (subtypep '(or (vector bit) (vector t)) 'vector) |
342 |
|
(signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) type-error) |
343 |
|
t) |
344 |
t) |
t) |
345 |
|
|
346 |
;;; Order of execution tests |
;;; Order of execution tests |