diff --git a/ansi-tests/search-string.lsp b/ansi-tests/search-string.lsp index 83af4bd486ebc07ddaf5b745dedaf4d517105d29..66c03c72e583787ab78c891eb1b509e1b5f6a505 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*)