X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=d8355459751e9076044a25405d2eac44c818c996;hb=7c5138fcbdb302abc563a2060493f2f0304ae902;hp=4a6f3dab518c8a3ad6b3c3f37e00d8acc7c75ac7;hpb=da554aabb26815adee15c78dd41ced81dd7fd5d2;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 4a6f3da..d835545 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -545,7 +545,7 @@ error if any of PACKAGES is not a valid package designator."
   #!+sb-doc
   "Changes the name and nicknames for a package."
   (let* ((package (find-undeleted-package-or-lose package))
-	 (name (string name))
+	 (name (package-namify name))
 	 (found (find-package name))
 	 (nicks (mapcar #'string nicknames)))
     (unless (or (not found) (eq found package))
@@ -985,7 +985,8 @@ error if any of PACKAGES is not a valid package designator."
             :package package
             :format-control
             "~@<These symbols are not accessible in the ~A package:~2I~_~S~@:>"
-            :format-arguments (list (package-%name package) missing)))
+            :format-arguments (list (package-%name package) missing))
+           'import (package-%name package))
 	  (import missing package))
 	(import imports package))