Changeset 273

Timestamp:

Jan 13, 2004, 4:48:27 PM (21 years ago)

Author:

Gary Byers

Message:

LCM-2, SIGNUM fixes.

File:

• trunk/ccl/lib/numbers.lisp (modified) (2 diffs)

trunk/ccl/lib/numbers.lisp

@@ -344 +344 @@
         (let* ((small (if (< n0 n1) n0 n1))
                (large (if (eq small n0) n1 n0)))
-          (* (truncate large (gcd n0 n1)) small))))))
+          (values (truncate (abs (* n0 n1)) (gcd large small))))))))
 
 (defun lcm (&lexpr numbers)
@@ -544 +544 @@
 
 (defun signum (x)
-  (cond ((complexp x) (cis (phase x)))
+  (cond ((complexp x) (if (zerop x) x (/ x (abs x))))
         ((rationalp x) (if (plusp x) 1 (if (zerop x) 0 -1)))
         ((zerop x) (float 0.0 x))