X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbignum.lisp;h=719f369e4b91386a6f9da1e885625fea3e105ac9;hb=237ecea4a44f33d40440ea40c67c54e9e23358b3;hp=cf70586301619c9861adafa8ff315ad80bf5509c;hpb=c7dc5b2a1f56ed0583a0b3ea61b6ceb540c6f89e;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)