Parent Directory | Revision Log | Patch
revision 1.18 by pfdietz, Wed Sep 22 12:21:49 2004 UTC | revision 1.19 by pfdietz, Wed Sep 22 12:22:14 2004 UTC | |
---|---|---|
# | Line 688 | Line 688 |
688 | ||
689 | (deftest position-string.32 | (deftest position-string.32 |
690 | (let* ((s1 (copy-seq "xxxabcdabcdyyyyyyyy")) | (let* ((s1 (copy-seq "xxxabcdabcdyyyyyyyy")) |
691 | (s2 (make-array '(4) :displaced-to s1 | (s2 (make-array '(8) :displaced-to s1 |
692 | :displaced-index-offset 3 | :displaced-index-offset 3 |
693 | :element-type (array-element-type s1)))) | :element-type (array-element-type s1)))) |
694 | (position #\c s2 :from-end t)) | (position #\c s2 :from-end t)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |