Changeset 8916
 Timestamp:
 Mar 28, 2008, 5:17:58 AM (12 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

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