72 |
"cdaba") |
"cdaba") |
73 |
|
|
74 |
(deftest string-left-trim.9 |
(deftest string-left-trim.9 |
75 |
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list) |
(let* ((s (make-array 7 :initial-contents "abcdaba" |
76 |
:element-type 'character |
:element-type 'character |
77 |
)) |
)) |
78 |
(s2 (string-left-trim "ab" s))) |
(s2 (string-left-trim "ab" s))) |
81 |
"cdaba") |
"cdaba") |
82 |
|
|
83 |
(deftest string-left-trim.10 |
(deftest string-left-trim.10 |
84 |
(let* ((s (make-array 9 :initial-contents (coerce "abcdabadd" 'list) |
(let* ((s (make-array 9 :initial-contents "abcdabadd" |
85 |
:element-type 'character |
:element-type 'character |
86 |
:fill-pointer 7)) |
:fill-pointer 7)) |
87 |
(s2 (string-left-trim "ab" s))) |
(s2 (string-left-trim "ab" s))) |
90 |
"cdaba") |
"cdaba") |
91 |
|
|
92 |
(deftest string-left-trim.11 |
(deftest string-left-trim.11 |
93 |
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list) |
(let* ((s (make-array 7 :initial-contents "abcdaba" |
94 |
:element-type 'standard-char |
:element-type 'standard-char |
95 |
)) |
)) |
96 |
(s2 (string-left-trim "ab" s))) |
(s2 (string-left-trim "ab" s))) |
99 |
"cdaba") |
"cdaba") |
100 |
|
|
101 |
(deftest string-left-trim.12 |
(deftest string-left-trim.12 |
102 |
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list) |
(let* ((s (make-array 7 :initial-contents "abcdaba" |
103 |
:element-type 'base-char |
:element-type 'base-char |
104 |
)) |
)) |
105 |
(s2 (string-left-trim "ab" s))) |
(s2 (string-left-trim "ab" s))) |