X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=5caa5254e68aa2a2f5d4f1f47af9f62ee887a54b;hb=dca55270cf662763243dfc8ee207370473da2a6f;hp=05c80ad98dca25388401dd5aab1e1e369f3c620f;hpb=e92a2f8844d9125e76a4b96dc27b56632bfd85b6;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 05c80ad..5caa525 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -540,9 +540,9 @@
 	   (let ((sym (read *query-io*)))
 	     (cond
 	      ((not (symbolp sym))
-	       (format *query-io* "~S is not a symbol."))
+	       (format *query-io* "~S is not a symbol." sym))
 	      ((not (member sym cset))
-	       (format *query-io* "~S is not one of the conflicting symbols."))
+	       (format *query-io* "~S is not one of the conflicting symbols." sym))
 	      (t
 	       (shadowing-import sym package)
 	       (return-from unintern t)))))))
@@ -818,7 +818,8 @@
 	  (when cset
 	    (cerror
 	     "Unintern the conflicting symbols in the ~2*~A package."
-	     "Use'ing package ~A results in name conflicts for these symbols:~%~S"
+	     "Using package ~A results in name conflicts for these symbols:~%~
+              ~S"
 	     (package-%name pkg) cset (package-%name package))
 	    (dolist (s cset) (moby-unintern s package))))