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