diff --git a/ansi-tests/find-symbol.lsp b/ansi-tests/find-symbol.lsp index d66dc925696dc95615aef365f8791534f4a1b266..20d25ece47bfc723556497b31569d5d9fa39488b 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