78 |
displaced-to (displaced-index-offset 0) |
displaced-to (displaced-index-offset 0) |
79 |
static) |
static) |
80 |
(when (integerp dimensions) (setq dimensions (list dimensions))) |
(when (integerp dimensions) (setq dimensions (list dimensions))) |
81 |
(setq element-type (best-array-element-type element-type)) |
(setq element-type (or (best-array-element-type element-type) 'string-char)) |
82 |
(cond ((= (length dimensions) 1) |
(cond ((= (length dimensions) 1) |
83 |
(let ((x (si:make-vector element-type (car dimensions) |
(let ((x (si:make-vector element-type (car dimensions) |
84 |
adjustable fill-pointer |
adjustable fill-pointer |
94 |
(t |
(t |
95 |
(let ((x |
(let ((x |
96 |
(make-array1 |
(make-array1 |
97 |
(the fixnum(get-aelttype element-type)) |
(the fixnum (get-aelttype element-type)) |
98 |
static initial-element |
static initial-element |
99 |
displaced-to (the fixnum displaced-index-offset) |
displaced-to (the fixnum displaced-index-offset) |
100 |
dimensions))) |
dimensions))) |