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 |
(format nil "~A" (caddr type)) |
(unless (or (eq (car type) 'array) |
54 |
(unless (and (or (eq (car type) 'array) |
(eq (car type) 'simple-array)) |
|
(eq (car type) 'simple-array)) |
|
|
(not (si::fixnump (car (caddr type))))) |
|
55 |
(error "~S is not a sequence type." type)) |
(error "~S is not a sequence type." type)) |
56 |
|
(unless (or (not (si::fixnump (car (caddr type)))) |
57 |
|
(equal (car (caddr type)) size)) |
58 |
|
(error "Cannot make-sequence of type ~S and size ~S." type size)) |
59 |
(or (cadr type) t)))) |
(or (cadr type) t)))) |
60 |
(setq element-type (si::best-array-element-type element-type)) |
(setq element-type (si::best-array-element-type element-type)) |
61 |
(setq sequence (si:make-vector element-type size nil nil nil nil nil)) |
(setq sequence (si:make-vector element-type size nil nil nil nil nil)) |