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

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 23e9150..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))))
 
@@ -877,7 +878,8 @@
 	(do-symbols (symbol package)
 	  (when (and (eq (symbol-package symbol) package)
 		     (or (not external-only)
-			 (eq (find-symbol (symbol-name symbol) package)
+			 (eq (nth-value 1 (find-symbol (symbol-name symbol)
+						       package))
 			     :external))
 		     (search string (symbol-name symbol) :test #'char-equal))
 	    (push symbol result)))
@@ -938,7 +940,9 @@
 	(add-symbol external symbol))
 
       ;; Put shadowing symbols in the shadowing symbols list.
-      (setf (package-%shadowing-symbols pkg) (sixth spec))))
+      (setf (package-%shadowing-symbols pkg) (sixth spec))
+      ;; Set the package documentation
+      (setf (package-doc-string pkg) (seventh spec))))
 
   ;; FIXME: These assignments are also done at toplevel in
   ;; boot-extensions.lisp. They should probably only be done once.