Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Sat Feb 15 05:11:12 2003 UTC | revision 1.7 by pfdietz, Wed Jun 18 11:55:24 2003 UTC | |
---|---|---|
# | Line 141 | Line 141 |
141 | (string-left-trim "abc" (copy-seq "abcabcabc")) | (string-left-trim "abc" (copy-seq "abcabcabc")) |
142 | "") | "") |
143 | ||
144 | (deftest string-left-trim.20 | |
145 | (string-left-trim "abcd" (make-array '(0) :element-type nil)) | |
146 | "") | |
147 | ||
148 | (deftest string-left-trim.21 | |
149 | (string-left-trim (make-array '(0) :element-type nil) "abcd") | |
150 | "abcd") | |
151 | ||
152 | (deftest string-left-trim.order.1 | (deftest string-left-trim.order.1 |
153 | (let ((i 0) x y) | (let ((i 0) x y) |
154 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |