From f1e41363fc77b7fc7da410eafef587b683be777a Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 21 Feb 2013 12:46:07 +0200 Subject: [PATCH] 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.) --- doc/manual/beyond-ansi.texinfo | 2 +- package-data-list.lisp-expr | 2 +- src/code/target-package.lisp | 8 ++++---- tests/packages.impure.lisp | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/doc/manual/beyond-ansi.texinfo b/doc/manual/beyond-ansi.texinfo index d38e290..39f871f 100644 --- 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 --- 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 --- 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 --- 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))))) -- 1.7.10.4