Index: /trunk/ccl/lib/numbers.lisp
===================================================================
--- /trunk/ccl/lib/numbers.lisp	(revision 272)
+++ /trunk/ccl/lib/numbers.lisp	(revision 273)
@@ -344,5 +344,5 @@
 	(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,5 +544,5 @@
 
 (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))