Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv20841/src/code
* Fix bug reported by Paul Dietz: (GCD 0 X) returned X instead
of (ABS X).
RCS file: /cvsroot/sbcl/sbcl/src/code/numbers.lisp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- numbers.lisp 1 Sep 2003 12:51:08 -0000 1.21
+++ numbers.lisp 4 Sep 2003 05:56:09 -0000 1.22
@@ -1271,8 +1271,8 @@
;;; of 0 before the dispatch so that the bignum code doesn't have to worry
;;; about "small bignum" zeros.
(defun two-arg-gcd (u v)
- (cond ((eql u 0) v)
- ((eql v 0) u)
+ (cond ((eql u 0) (abs v))
+ ((eql v 0) (abs u))
(number-dispatch ((u integer) (v integer))
Sign up for the SourceForge newsletter: