suffix PACKAGE-LOCALLY-NICKNAMED-BY with -LIST

  Less confusing, and more in line with PACKAGED-NICKNAMED-BY-LIST &co.

  (Thanks to Rudi Schlatte for heads-up.)

diff --git a/doc/manual/beyond-ansi.texinfo b/doc/manual/beyond-ansi.texinfo
index d38e290..39f871f 100644 (file)
--- a/doc/manual/beyond-ansi.texinfo
+++ b/doc/manual/beyond-ansi.texinfo
@@ -91,7 +91,7 @@ Example:
 @end defmac
 
 @include fun-sb-ext-package-local-nicknames.texinfo
-@include fun-sb-ext-package-locally-nicknamed-by.texinfo
+@include fun-sb-ext-package-locally-nicknamed-by-list.texinfo
 @include fun-sb-ext-add-package-local-nickname.texinfo
 @include fun-sb-ext-remove-package-local-nickname.texinfo
 

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 56dfb3e..b8eb791 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -714,7 +714,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "ADD-PACKAGE-LOCAL-NICKNAME"
                "REMOVE-PACKAGE-LOCAL-NICKNAME"
                "PACKAGE-LOCAL-NICKNAMES"
-               "PACKAGE-LOCALLY-NICKNAMED-BY"
+               "PACKAGE-LOCALLY-NICKNAMED-BY-LIST"
                ;; behaviour on DEFPACKAGE variance
                "*ON-PACKAGE-VARIANCE*"
 

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 312cb6e..2e0e47f 100644 (file)
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -355,7 +355,7 @@ When printing a package prefix for a symbol with a package local nickname, the
 local nickname is used instead of the real name in order to preserve
 print-read consistency.
 
-See also: ADD-PACKAGE-LOCAL-NICKNAME, PACKAGE-LOCALLY-NICKNAMED-BY,
+See also: ADD-PACKAGE-LOCAL-NICKNAME, PACKAGE-LOCALLY-NICKNAMED-BY-LIST,
 REMOVE-PACKAGE-LOCAL-NICKNAME, and the DEFPACKAGE option :LOCAL-NICKNAMES.
 
 Experimental: interface subject to change."
@@ -363,7 +363,7 @@ Experimental: interface subject to change."
    (package-%local-nicknames
     (find-undeleted-package-or-lose package-designator))))
 
-(defun package-locally-nicknamed-by (package-designator)
+(defun package-locally-nicknamed-by-list (package-designator)
   "Returns a list of packages which have a local nickname for the designated
 package.
 
@@ -396,7 +396,7 @@ When printing a package prefix for a symbol with a package local nickname,
 local nickname is used instead of the real name in order to preserve
 print-read consistency.
 
-See also: PACKAGE-LOCAL-NICKNAMES, PACKAGE-LOCALLY-NICKNAMED-BY,
+See also: PACKAGE-LOCAL-NICKNAMES, PACKAGE-LOCALLY-NICKNAMED-BY-LIST,
 REMOVE-PACKAGE-LOCAL-NICKNAME, and the DEFPACKAGE option :LOCAL-NICKNAMES.
 
 Experimental: interface subject to change."
@@ -446,7 +446,7 @@ another package, it is removed. Returns true if the nickname existed and was
 removed, and NIL otherwise.
 
 See also: ADD-PACKAGE-LOCAL-NICKNAME, PACKAGE-LOCAL-NICKNAMES,
-PACKAGE-LOCALLY-NICKNAMED-BY, and the DEFPACKAGE option :LOCAL-NICKNAMES.
+PACKAGE-LOCALLY-NICKNAMED-BY-LIST, and the DEFPACKAGE option :LOCAL-NICKNAMES.
 
 Experimental: interface subject to change."
   (let* ((nick (string old-nickname))

diff --git a/tests/packages.impure.lisp b/tests/packages.impure.lisp
index ae0228e..a67dca2 100644 (file)
--- 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)))))