X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbignum.lisp;h=af0f06ac8869396679da44bf249c543951f0817d;hb=bd2df60f7c3f579a9c7610925c79a0e783adaa0e;hp=9f46416af8be4849632122db05a4b855fbf7043d;hpb=08d05510b51708853ca998154d8096b21d85edab;p=sbcl.git

diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp
index 9f46416..af0f06a 100644
--- a/src/code/bignum.lisp
+++ b/src/code/bignum.lisp
@@ -777,6 +777,7 @@
         (setf u-len (make-gcd-bignum-odd u u-len))
         (rotatef u v)
         (rotatef u-len v-len))
+      (bignum-abs-buffer u u-len)
       (setf u (copy-bignum u u-len))
       (let ((n (bignum-mod-gcd v1 u)))
         (ash (bignum-mod-gcd u1 (if (fixnump n)