X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbignum.lisp;h=c0606e65fbdbd7ba66ff614b29b6947d14837682;hb=d4c7ab04ed10729a2cfa3321f4382d8a218ad958;hp=03f23377ab672d40899065e3c00ab4d75fc8a280;hpb=6cc71ab8ffad49f43895ad0a1df6885c81876687;p=sbcl.git

diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp
index 03f2337..c0606e6 100644
--- a/src/code/bignum.lisp
+++ b/src/code/bignum.lisp
@@ -749,7 +749,7 @@
 				       (%normalize-bignum res res-len))
 				      res)))))
 	  ((> count bignum-len)
-	   0)
+	   (if (%bignum-0-or-plusp bignum bignum-len) 0 -1))
 	   ;; Since a FIXNUM should be big enough to address anything in
 	   ;; memory, including arrays of bits, and since arrays of bits
 	   ;; take up about the same space as corresponding fixnums, there