X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=a8a8ea7254d111cb4dda18c4344e62cd87741fac;hb=a96369c72588c5457d71d6aaea35f2c450b19ef5;hp=310b886123bf5327f60777b8a2f83432c4a43139;hpb=b1abaa98c141c3f9baceb1185086fde7b5256e98;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 310b886..a8a8ea7 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -571,9 +571,9 @@
 	(t
 	 (error "~S is neither a symbol nor a list of symbols." thing))))
 
-;;; Like UNINTERN, but if symbol is inherited chases down the package
-;;; it is inherited from and uninterns it there. Used for
-;;; name-conflict resolution. Shadowing symbols are not uninterned
+;;; This is like UNINTERN, except if SYMBOL is inherited, it chases
+;;; down the package it is inherited from and uninterns it there. Used
+;;; for name-conflict resolution. Shadowing symbols are not uninterned
 ;;; since they do not cause conflicts.
 (defun moby-unintern (symbol package)
   (unless (member symbol (package-%shadowing-symbols package))