From 925f3c283a4df6c987fcd5fb29561ed97e3a64dc Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 14 Oct 2002 03:54:59 +0000
Subject: [PATCH] Removed test search-string.1, which was not doing anything
 useful due to an editting error.

---
 ansi-tests/search-string.lsp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/ansi-tests/search-string.lsp b/ansi-tests/search-string.lsp
index 83af4bd4..66c03c72 100644
--- a/ansi-tests/search-string.lsp
+++ b/ansi-tests/search-string.lsp
@@ -5,6 +5,10 @@
 
 (in-package :cl-test)
 
+;;; The next test was busted due to to a stupid cut and paste
+;;; error.  The loop terminates immediately, doing nothing
+;;; useful. -- PFD
+#|
 (deftest search-string.1
   (let ((target *searched-string*)
 	(pat #(a)))
@@ -14,6 +18,7 @@
 	  (let ((pos (search pat tail)))
 	    (search-check pat tail pos))))
   t)
+|#
 
 (deftest search-string.2
   (let ((target *searched-string*)
-- 
GitLab