Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Thu Feb 20 23:57:54 2003 UTC | revision 1.4 by pfdietz, Wed Apr 2 13:20:14 2003 UTC | |
---|---|---|
# | Line 9 | Line 9 |
9 | (let ((target *searched-vector*) | (let ((target *searched-vector*) |
10 | (pat #(a))) | (pat #(a))) |
11 | (loop for i from 0 to (1- (length target)) | (loop for i from 0 to (1- (length target)) |
12 | for tail on target | for tail = (subseq target i) |
13 | always | always |
14 | (let ((pos (search pat tail))) | (let ((pos (search pat tail))) |
15 | (search-check pat tail pos)))) | (search-check pat tail pos)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |