From 114f3be4fb1d88bfd00a7147ded5666588c4a228 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 30 Mar 2003 13:15:33 +0000 Subject: [PATCH] fixed two bogus tests --- ansi-tests/search-bitvector.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ansi-tests/search-bitvector.lsp b/ansi-tests/search-bitvector.lsp index 40808121..b435f207 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))) -- GitLab