diff --git a/ansi-tests/search-bitvector.lsp b/ansi-tests/search-bitvector.lsp index 408081210a97c9405ba3d7183a1bf010e0c14ca9..b435f2074752062e47c361b6c2f545bb2fd5de19 100644 --- a/ansi-tests/search-bitvector.lsp +++ b/ansi-tests/search-bitvector.lsp @@ -7,9 +7,9 @@ (deftest search-bitvector.1 (let ((target *searched-bitvector*) - (pat #(a))) + (pat #*0)) (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)))) @@ -17,7 +17,7 @@ (deftest search-bitvector.2 (let ((target *searched-bitvector*) - (pat #(a))) + (pat #*0)) (loop for i from 1 to (length target) always (let ((pos (search pat target :end2 i :from-end t)))