X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=2e4d9ebaea6dec531f021f0ac2146c7b88dad164;hb=6e7ae26173b40d635b94e81bc73f5c06d550de32;hp=310b886123bf5327f60777b8a2f83432c4a43139;hpb=b1abaa98c141c3f9baceb1185086fde7b5256e98;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 310b886..2e4d9eb 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -355,7 +355,10 @@
 	 (name (string name))
 	 (found (find-package name)))
     (unless (or (not found) (eq found package))
-      (error "A package named ~S already exists." name))
+      (error 'simple-package-error
+	     :package name
+	     :format-control "A package named ~S already exists."
+	     :format-arguments (list name)))
     (remhash (package-%name package) *package-names*)
     (dolist (n (package-%nicknames package))
       (remhash n *package-names*))
@@ -571,9 +574,9 @@
 	(t
 	 (error "~S is neither a symbol nor a list of symbols." thing))))
 
-;;; Like UNINTERN, but if symbol is inherited chases down the package
-;;; it is inherited from and uninterns it there. Used for
-;;; name-conflict resolution. Shadowing symbols are not uninterned
+;;; This is like UNINTERN, except if SYMBOL is inherited, it chases
+;;; down the package it is inherited from and uninterns it there. Used
+;;; for name-conflict resolution. Shadowing symbols are not uninterned
 ;;; since they do not cause conflicts.
 (defun moby-unintern (symbol package)
   (unless (member symbol (package-%shadowing-symbols package))