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

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 23e9150..e7a79f2 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -938,7 +938,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.