From d0eeede5e00516be09be6d1ae72efddfa9ec768d Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 19 Dec 2003 10:21:45 +0000
Subject: [PATCH] (LCM) => 1

---
 src/c/num_arith.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/num_arith.d b/src/c/num_arith.d
index 6bf6263f0..8e0a13b44 100644
--- a/src/c/num_arith.d
+++ b/src/c/num_arith.d
@@ -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);