X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbignum.lisp;h=719f369e4b91386a6f9da1e885625fea3e105ac9;hb=860543cc7ba0266e41e1d41ac9b6a208f3795f1a;hp=cf70586301619c9861adafa8ff315ad80bf5509c;hpb=93ba859423ec6e035a7b22a76a2ac70038691d65;p=sbcl.git

diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp
index cf70586..719f369 100644
--- a/src/code/bignum.lisp
+++ b/src/code/bignum.lisp
@@ -812,7 +812,7 @@
 	  (bignum-ashift-left-unaligned bignum digits n-bits res-len))))
     ;; Left shift by a number too big to be represented as a fixnum
     ;; would exceed our memory capacity, since a fixnum is big enough
-    ;; index any array, including a bit array.
+    ;; to index any array, including a bit array.
     (error "can't represent result of left shift")))
 
 (defun bignum-ashift-left-digits (bignum bignum-len digits)