X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbignum.lisp;h=f7f7e5d0cb8897328c307fabcb8d2be1ce27eca5;hb=174feb792c8082846666e1218c58d5b0ab3b85b0;hp=719f369e4b91386a6f9da1e885625fea3e105ac9;hpb=237ecea4a44f33d40440ea40c67c54e9e23358b3;p=sbcl.git

diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp
index 719f369..f7f7e5d 100644
--- a/src/code/bignum.lisp
+++ b/src/code/bignum.lisp
@@ -755,7 +755,7 @@
 	   ;; take up about the same space as corresponding fixnums, there
 	   ;; should be no way that we fall through to this case: any shift
 	   ;; right by a bignum should give zero. But let's check anyway:
-	  (t (error "bignum overflow: can't shift right by ~S")))))
+	  (t (error "bignum overflow: can't shift right by ~S" count)))))
 
 (defun bignum-ashift-right-digits (bignum digits)
   (declare (type bignum-type bignum)