Commit f36e37b9 authored by pfdietz's avatar pfdietz
Browse files

Fixed botched test.

parent 114f3be4
......@@ -9,7 +9,7 @@
(let ((target *searched-vector*)
(pat #(a)))
(loop for i from 0 to (1- (length target))
for tail on target
for tail = (subseq target i)
always
(let ((pos (search pat tail)))
(search-check pat tail pos))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment