Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Fri Oct 4 11:13:40 2002 UTC | revision 1.5 by pfdietz, Sat Oct 12 01:40:08 2002 UTC | |
---|---|---|
# | Line 63 | Line 63 |
63 | ||
64 | (deftest string-trim.8 | (deftest string-trim.8 |
65 | (let* ((s (copy-seq "abcdaba")) | (let* ((s (copy-seq "abcdaba")) |
66 | (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b #\c #\d) | (s2 (string-trim (make-array 4 :initial-contents '(#\a #\b #\c #\d) |
67 | :element-type 'character | :element-type 'character |
68 | :fill-pointer 2) | :fill-pointer 2) |
69 | s))) | s))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |