projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.18.3:
[sbcl.git]
/
src
/
code
/
target-package.lisp
diff --git
a/src/code/target-package.lisp
b/src/code/target-package.lisp
index
4a6f3da
..
d835545
100644
(file)
--- 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))
#!+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))
(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~@:>"
: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))
(import missing package))
(import imports package))