X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=7201b7aa764ca06205a36a183c2e79fb748e01e8;hb=89eb73c035f05ae53b1148ef8a83e1d4030b2dd8;hp=be3cbd1fd5b1867b9266c3b7856f255903b1e9b7;hpb=416152f084604094445a758ff399871132dff2bd;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index be3cbd1..7201b7a 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -425,7 +425,7 @@
 
 (defun list-all-packages ()
   #!+sb-doc
-  "Returns a list of all existing packages."
+  "Return a list of all existing packages."
   (let ((res ()))
     (maphash #'(lambda (k v)
 		 (declare (ignore k))
@@ -435,7 +435,7 @@
 
 (defun intern (name &optional (package (sane-package)))
   #!+sb-doc
-  "Returns a symbol having the specified name, creating it if necessary."
+  "Return a symbol having the specified name, creating it if necessary."
   ;; We just simple-stringify the name and call INTERN*, where the real
   ;; logic is.
   (let ((name (if (simple-string-p name)
@@ -448,7 +448,7 @@
 
 (defun find-symbol (name &optional (package (sane-package)))
   #!+sb-doc
-  "Returns the symbol named String in Package. If such a symbol is found
+  "Return the symbol named String in Package. If such a symbol is found
   then the second value is :internal, :external or :inherited to indicate
   how the symbol is accessible. If no symbol is found then both values
   are NIL."
@@ -860,9 +860,6 @@
 
 ;;;; APROPOS and APROPOS-LIST
 
-;;; KLUDGE: All the APROPOS stuff should probably be byte-compiled, since it's
-;;; only likely to be used interactively. -- WHN 19990827
-
 (defun briefly-describe-symbol (symbol)
   (fresh-line)
   (prin1 symbol)