mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 15:40:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

LCM may be called without any argument

Browse source
This commit is contained in:
jjgarcia 2003-12-15 08:53:28 +00:00
parent 8ae8d16cd4
commit d4e8230777
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/num_arith.d
View file

@ -901,10 +901,15 @@ one_minus(cl_object x)
}
}
@(defun lcm (lcm &rest nums)
@(defun lcm (&rest nums)
cl_object lcm;
@
if (narg == 0)
@(return MAKE_FIXNUM(0))
/* INV: get_gcd() checks types. By placing `numi' before `lcm' in
this call, we make sure that errors point to `numi' */
lcm = cl_va_arg(nums);
assert_type_integer(lcm);
while (narg-- > 1) {
cl_object numi = cl_va_arg(nums);
cl_object t = number_times(lcm, numi);
@ -912,6 +917,5 @@ one_minus(cl_object x)
if (g != MAKE_FIXNUM(0))
lcm = number_divide(t, g);
}
assert_type_integer(lcm);
@(return (number_minusp(lcm) ? number_negate(lcm) : lcm))
@)