Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Tue Nov 5 13:51:27 2002 UTC | revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC | |
---|---|---|
# | Line 132 | Line 132 |
132 | nil) | nil) |
133 | ||
134 | (deftest search-string.15 | (deftest search-string.15 |
135 | (let ((a (make-array '(10) :initial-contents (coerce "abbaaababb" 'list) | (let ((a (make-array '(10) :initial-contents "abbaaababb" |
136 | :fill-pointer 5 | :fill-pointer 5 |
137 | :element-type 'character))) | :element-type 'character))) |
138 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |