0.8.6.28:

[sbcl.git] / src / code / target-package.lisp

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 05c80ad..5caa525 100644 (file)
--- 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))))