/[gcl]/gcl/ansi-tests/search-vector.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/search-vector.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26