From: Alexey D. <ade...@us...> - 2003-09-04 16:09:26
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1:/tmp/cvs-serv3927/tests Modified Files: arith.pure.lisp Log Message: 0.8.3.36: * Fix bug reported by Paul Dietz: (GCD 0 X) returned X instead of (ABS X). Index: arith.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/arith.pure.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- arith.pure.lisp 4 Sep 2003 05:56:09 -0000 1.9 +++ arith.pure.lisp 4 Sep 2003 16:09:11 -0000 1.10 @@ -103,6 +103,10 @@ (= (funcall fn 3) x3)) (error "bad results for ~D" x))))) +;;; Bugs reported by Paul Dietz: + ;;; (GCD 0 x) must return (abs x) (dolist (x (list -10 (* 3 most-negative-fixnum))) (assert (= (gcd 0 x) (abs x)))) +;;; LCM returns a non-negative number +(assert (= (lcm 4 -10) 20)) |