[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv25150

Modified Files:
	integers.lisp 
Log Message:
Ensure (lcm) => 1.


--- /project/movitz/cvsroot/movitz/losp/muerte/integers.lisp	2008/04/17 19:34:39	1.126
+++ /project/movitz/cvsroot/movitz/losp/muerte/integers.lisp	2008/04/21 19:40:32	1.127
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: integers.lisp,v 1.126 2008/04/17 19:34:39 ffjeld Exp $
+;;;; $Id: integers.lisp,v 1.127 2008/04/21 19:40:32 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2170,7 +2170,8 @@
       (abs (* (truncate (max n m) (gcd n m)) (min n m))))
    (t (&rest numbers)
       (declare (dynamic-extent numbers))
-      (reduce #'lcm numbers))))
+      (reduce #'lcm numbers
+              :initial-value 1))))
 
 (defun floor (n &optional (divisor 1))
   "This is floor written in terms of truncate."