Function PACKAGE-NAME
package-name package => name
package - パッケージ指定子
name - 文字列か、nil
package-nameはpackageに名付けられている文字列を返却するか、 もしpackage指定子が名前を持たないパッケージの場合は nilを返却します (delete-package関数をご確認ください)。
(in-package "COMMON-LISP-USER") =>  #<PACKAGE "COMMON-LISP-USER">
(package-name *package*) =>  "COMMON-LISP-USER"
(package-name (symbol-package :test)) =>  "KEYWORD"
(package-name (find-package 'common-lisp)) =>  "COMMON-LISP"
(defvar *foo-package* (make-package "FOO"))
(rename-package "FOO" "FOO0")
(package-name *foo-package*) =>  "FOO0"なし。
なし。
packageがパッケージ指定子ではないときは、 型type-errorのエラーが発生します。
なし。
なし。