X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpackages.impure.lisp;fp=tests%2Fpackages.impure.lisp;h=a67dca2204b6e4c0209d50c8aa6c140f474a7546;hb=f1e41363fc77b7fc7da410eafef587b683be777a;hp=ae0228e409031a096a3b6720081a75ecf7c67d8d;hpb=5bf941f419b6cd275feb3ee44ca264596fbd9e8e;p=sbcl.git

diff --git a/tests/packages.impure.lisp b/tests/packages.impure.lisp
index ae0228e..a67dca2 100644
--- a/tests/packages.impure.lisp
+++ b/tests/packages.impure.lisp
@@ -590,9 +590,9 @@ if a restart was invoked."
            (setf p1 (make-package "LOCALLY-NICKNAMES-OTHERS")
                  p2 (make-package "LOCALLY-NICKNAMED-BY-OTHERS"))
                (add-package-local-nickname :foo p2 p1)
-               (assert (package-locally-nicknamed-by p2))
+               (assert (equal (list p1) (package-locally-nicknamed-by-list p2)))
                (delete-package p1)
-               (assert (not (package-locally-nicknamed-by p2))))
+               (assert (not (package-locally-nicknamed-by-list p2))))
       (when p1 (delete-package p1))
       (when p2 (delete-package p2)))))