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