X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-numbers.lisp;h=6b8f6c60fbe4298e52a7b6a6bb939db3636e0ae3;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=c518c6a1171afe5e95b9bb3391b3881f595d6f21;hpb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;p=sbcl.git

diff --git a/src/code/target-numbers.lisp b/src/code/target-numbers.lisp
index c518c6a..6b8f6c6 100644
--- a/src/code/target-numbers.lisp
+++ b/src/code/target-numbers.lisp
@@ -338,8 +338,8 @@
 
 (defun / (number &rest more-numbers)
   #!+sb-doc
-  "Divides the first arg by each of the following arguments, in turn.
-  With one arg, returns reciprocal."
+  "Divide the first argument by each of the following arguments, in turn.
+  With one argument, return reciprocal."
   (if more-numbers
       (do ((nlist more-numbers (cdr nlist))
 	   (result number))
@@ -1274,7 +1274,7 @@
   "Returns the root of the nearest integer less than n which is a perfect
    square."
   (declare (type unsigned-byte n) (values unsigned-byte))
-  ;; theoretically (> n 7), i.e., n-len-quarter > 0
+  ;; Theoretically (> n 7), i.e., n-len-quarter > 0.
   (if (and (fixnump n) (<= n 24))
       (cond ((> n 15) 4)
 	    ((> n  8) 3)