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

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