Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Mon Nov 4 04:31:48 2002 UTC | revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC | |
---|---|---|
# | Line 496 | Line 496 |
496 | (#\6))) | (#\6))) |
497 | ||
498 | (deftest find-if-string.19 | (deftest find-if-string.19 |
499 | (let ((a (make-array '(10) :initial-contents (coerce "123456789a" 'list) | (let ((a (make-array '(10) :initial-contents "123456789a" |
500 | :fill-pointer 5 | :fill-pointer 5 |
501 | :element-type 'character))) | :element-type 'character))) |
502 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |