From 4b9a896b3d214e68ccddf1a08e18b32b8e8b850b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 4 Sep 2004 11:08:37 +0000
Subject: [PATCH] Some package names were not changed properly (cut/paste
 error)

---
 ansi-tests/find-symbol.lsp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/ansi-tests/find-symbol.lsp b/ansi-tests/find-symbol.lsp
index d66dc925..20d25ece 100644
--- a/ansi-tests/find-symbol.lsp
+++ b/ansi-tests/find-symbol.lsp
@@ -78,27 +78,27 @@
   (find-symbol "FOO" (find-package "B"))
   A::FOO :inherited)
 
-(deftest find-package.17
+(deftest find-symbol.17
   (let ((name (make-array '(3) :initial-contents "FOO"
 			  :element-type 'base-char)))
     (find-symbol name "B"))
   A::FOO :inherited)
 
-(deftest find-package.18
+(deftest find-symbol.18
   (let ((name (make-array '(4) :initial-contents "FOOD"
 			  :element-type 'character
 			  :fill-pointer 3)))
     (find-symbol name "B"))
   A::FOO :inherited)
 
-(deftest find-package.19
+(deftest find-symbol.19
   (let ((name (make-array '(4) :initial-contents "FOOD"
 			  :element-type 'base-char
 			  :fill-pointer 3)))
     (find-symbol name "B"))
   A::FOO :inherited)
 
-(deftest find-package.20
+(deftest find-symbol.20
   (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
 			    :element-type 'character))
 	 (name (make-array '(3) :element-type 'character
@@ -107,7 +107,7 @@
     (find-symbol name "B"))
   A::FOO :inherited)
 
-(deftest find-package.21
+(deftest find-symbol.21
   (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
 			    :element-type 'base-char))
 	 (name (make-array '(3) :element-type 'base-char
-- 
GitLab