45 |
((or (eq type 'simple-vector) (eq type 'vector)) t) |
((or (eq type 'simple-vector) (eq type 'vector)) t) |
46 |
(t |
(t |
47 |
(setq type (normalize-type type)) |
(setq type (normalize-type type)) |
48 |
(when (eq (car type) 'list) |
(when (subtypep (car type) 'list) |
49 |
(return-from make-sequence |
(return-from make-sequence |
50 |
(if iesp |
(if iesp |
51 |
(make-list size :initial-element initial-element) |
(make-list size :initial-element initial-element) |
52 |
(make-list size)))) |
(make-list size)))) |
53 |
(unless (or (eq (car type) 'array) |
(format nil "~A" (caddr type)) |
54 |
(eq (car type) 'simple-array)) |
(unless (and (or (eq (car type) 'array) |
55 |
|
(eq (car type) 'simple-array)) |
56 |
|
(not (si::fixnump (car (caddr type))))) |
57 |
(error "~S is not a sequence type." type)) |
(error "~S is not a sequence type." type)) |
58 |
(or (cadr type) t)))) |
(or (cadr type) t)))) |
59 |
(setq element-type (si::best-array-element-type element-type)) |
(setq element-type (si::best-array-element-type element-type)) |