Changeset 5586

Timestamp:

Dec 4, 2006, 11:43:01 AM (18 years ago)

Author:

Gary Byers

Message:

Bugs in GCD-2. Long-standing bugs in GCD-2 ...

File:

• trunk/ccl/level-0/l0-numbers.lisp (modified) (2 diffs)

trunk/ccl/level-0/l0-numbers.lisp

@@ -1757 +1757 @@
            (if (eql n1 most-negative-fixnum)
              (if (eql n2 most-negative-fixnum)
-               1
+               (- most-negative-fixnum)
                (bignum-fixnum-gcd (- most-negative-fixnum) (abs n2)))
              (if (eql n2 most-negative-fixnum)
@@ -1773 +1773 @@
          (number-case n2
            (fixnum
-            (bignum-fixnum-gcd (bignum-abs n1)(fixnum-abs n2)))
+            (if (eql n2 most-negative-fixnum)
+              (%bignum-bignum-gcd (bignum-abs n1)(fixnum-abs n2))
+              (bignum-fixnum-gcd (bignum-abs n1)(fixnum-abs n2))))
            (bignum (%bignum-bignum-gcd n1 n2))))))))