174 |
'string)))))) |
'string)))))) |
175 |
|
|
176 |
(defun subseq-string-3-body () |
(defun subseq-string-3-body () |
177 |
(let* ((s1 (make-array '(10) :initial-contents |
(let* ((s1 (make-array '(10) :initial-contents "abcdefghij" |
|
(coerce "abcdefghij" 'list) |
|
178 |
:fill-pointer 8 |
:fill-pointer 8 |
179 |
:element-type 'character)) |
:element-type 'character)) |
180 |
(len (length s1))) |
(len (length s1))) |
217 |
'bit-vector)))))) |
'bit-vector)))))) |
218 |
|
|
219 |
(defun subseq-bit-vector-3-body () |
(defun subseq-bit-vector-3-body () |
220 |
(let* ((s1 (make-array '(10) :initial-contents |
(let* ((s1 (make-array '(10) :initial-contents #*1101100110 |
|
(coerce #*1101100110 'list) |
|
221 |
:fill-pointer 8 |
:fill-pointer 8 |
222 |
:element-type 'bit)) |
:element-type 'bit)) |
223 |
(len (length s1))) |
(len (length s1))) |