0.6.10:

[sbcl.git] / src / code / target-numbers.lisp

diff --git a/src/code/target-numbers.lisp b/src/code/target-numbers.lisp
index c518c6a..6b8f6c6 100644 (file)
--- 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)