X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=24149ee5799d30a26a5fdbfad9c93ed9faaf3aa2;hb=959057baab99d4328fc386aee3fcc812f5fcb3ed;hp=3759f74106fb6ac0945a144619b98470e41718ee;hpb=2c6b90e36a7c0377cd79625eb6c94d580f98cb93;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 3759f74..24149ee 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -261,7 +261,7 @@
 	 DOIT
 	 (return (progn ,@forms))))))
 
-;;; Delete the entry for String in Table. The entry must exist.
+;;; Delete the entry for STRING in TABLE. The entry must exist.
 (defun nuke-symbol (table string)
   (declare (simple-string string))
   (let* ((length (length string))
@@ -273,7 +273,7 @@
       (setf (aref (package-hashtable-table table) index) nil)
       (incf (package-hashtable-deleted table)))))
 
-;;; Enter any new Nicknames for Package into *package-names*.
+;;; Enter any new NICKNAMES for PACKAGE into *PACKAGE-NAMES*.
 ;;; If there is a conflict then give the user a chance to do
 ;;; something about it.
 (defun enter-new-nicknames (package nicknames)