Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Nov 4 04:31:48 2002 UTC | revision 1.3 by pfdietz, Fri Jan 3 04:28:38 2003 UTC | |
---|---|---|
# | Line 85 | Line 85 |
85 | "11111000") | "11111000") |
86 | ||
87 | (deftest stable-sort-string.3 | (deftest stable-sort-string.3 |
88 | (let ((a (make-array 10 :initial-contents (coerce "1001111011" 'list) | (let ((a (make-array 10 :initial-contents "1001111011" |
89 | :element-type 'character | :element-type 'character |
90 | :fill-pointer 5))) | :fill-pointer 5))) |
91 | (stable-sort a #'char<)) | (stable-sort a #'char<)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |