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