diff --git a/ansi-tests/find-symbol.lsp b/ansi-tests/find-symbol.lsp index 20d25ece47bfc723556497b31569d5d9fa39488b..29400f576e971264b283ad27ec7b06f737a7a3d2 100644 --- a/ansi-tests/find-symbol.lsp +++ b/ansi-tests/find-symbol.lsp @@ -71,32 +71,32 @@ A::FOO :inherited) (deftest find-symbol.15 - (find-symbol "FOO" "B") - A::FOO :inherited) + (find-symbol "FOO" "FS-B") + FS-A::FOO :inherited) (deftest find-symbol.16 - (find-symbol "FOO" (find-package "B")) - A::FOO :inherited) + (find-symbol "FOO" (find-package "FS-B")) + FS-A::FOO :inherited) (deftest find-symbol.17 (let ((name (make-array '(3) :initial-contents "FOO" :element-type 'base-char))) - (find-symbol name "B")) - A::FOO :inherited) + (find-symbol name "FS-B")) + FS-A::FOO :inherited) (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) + (find-symbol name "FS-B")) + FS-A::FOO :inherited) (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) + (find-symbol name "FS-B")) + FS-A::FOO :inherited) (deftest find-symbol.20 (let* ((name0 (make-array '(5) :initial-contents "XFOOY" @@ -104,8 +104,8 @@ (name (make-array '(3) :element-type 'character :displaced-to name0 :displaced-index-offset 1))) - (find-symbol name "B")) - A::FOO :inherited) + (find-symbol name "FS-B")) + FS-A::FOO :inherited) (deftest find-symbol.21 (let* ((name0 (make-array '(5) :initial-contents "XFOOY" @@ -113,18 +113,18 @@ (name (make-array '(3) :element-type 'base-char :displaced-to name0 :displaced-index-offset 1))) - (find-symbol name "B")) - A::FOO :inherited) + (find-symbol name "FS-B")) + FS-A::FOO :inherited) (deftest find-symbol.22 - (find-symbol "FOO" (make-array '(1) :initial-element #\B :element-type 'base-char)) - A::FOO :inherited) + (find-symbol "FOO" (make-array '(4) :initial-contents "FS-B" :element-type 'base-char)) + FS-A::FOO :inherited) (deftest find-symbol.23 - (find-symbol "FOO" (make-array '(2) :initial-element #\B - :fill-pointer 1 + (find-symbol "FOO" (make-array '(5) :initial-contents "FS-BX" + :fill-pointer 4 :element-type 'base-char)) - A::FOO :inherited) + FS-A::FOO :inherited) diff --git a/ansi-tests/packages-00.lsp b/ansi-tests/packages-00.lsp index fc4b77753d626536f0bf19128ae5d2600b9a5e80..6ade20227dc4898ee72cfe88f2b01faf4806a002 100644 --- a/ansi-tests/packages-00.lsp +++ b/ansi-tests/packages-00.lsp @@ -17,6 +17,17 @@ (:use "A") (:export "BAR"))) +(report-and-ignore-errors + (defpackage "FS-A" + (:use) + (:nicknames "FS-Q") + (:export "FOO"))) + +(report-and-ignore-errors + (defpackage "FS-B" + (:use "FS-A") + (:export "BAR"))) + (report-and-ignore-errors (defpackage "DS1" (:use)