mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-10 11:12:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

(LCM) => 1

Browse source
This commit is contained in:
jjgarcia 2003-12-19 10:21:45 +00:00
parent 99e1acec1c
commit d0eeede5e0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/num_arith.d
View file

@ -905,7 +905,7 @@ one_minus(cl_object x)
cl_object lcm;
@
if (narg == 0)
@(return MAKE_FIXNUM(0))
@(return MAKE_FIXNUM(1))
/* 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);