Changeset 8915
 Timestamp:
 Mar 28, 2008, 2:05:58 AM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level0/l0numbers.lisp
r8818 r8915 708 708 (buildratio x y) 709 709 (buildratio (%fixnumtruncate x gcd) (%fixnumtruncate y gcd)))))) 710 (let ((gcd (gcd x y))) 711 (if (eql gcd 1) 712 (buildratio x y) 713 (buildratio (truncate x gcd) (truncate y gcd)))))) 710 (if (eql y 0) 711 (error 'divisionbyzero :operation '/ :operands (list x y)) 712 (let ((gcd (gcd x y))) 713 (if (eql gcd 1) 714 (buildratio x y) 715 (buildratio (truncate x gcd) (truncate y gcd))))))) 714 716 715 717
Note: See TracChangeset
for help on using the changeset viewer.