74 |
"000110110110") |
"000110110110") |
75 |
|
|
76 |
(deftest reverse-string.3 |
(deftest reverse-string.3 |
77 |
(let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list) |
(let* ((x (make-array 10 :initial-contents "abcdefghij" |
78 |
:fill-pointer 5 |
:fill-pointer 5 |
79 |
:element-type 'character)) |
:element-type 'character)) |
80 |
(y (reverse x))) |
(y (reverse x))) |
82 |
"edcba") |
"edcba") |
83 |
|
|
84 |
(deftest reverse-string.4 |
(deftest reverse-string.4 |
85 |
(let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list) |
(let* ((x (make-array 10 :initial-contents "abcdefghij" |
86 |
:fill-pointer 5 |
:fill-pointer 5 |
87 |
:element-type 'base-char)) |
:element-type 'base-char)) |
88 |
(y (reverse x))) |
(y (reverse x))) |