Function: math-lcm-denoms

math-lcm-denoms is an autoloaded and byte-compiled function defined in calcalg2.el.gz.

Signature

(math-lcm-denoms &rest FRACS)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calcalg2.el.gz
(defun math-lcm-denoms (&rest fracs)
  (let ((den 1))
    (while fracs
      (if (eq (car-safe (car fracs)) 'frac)
	  (setq den (calcFunc-lcm den (nth 2 (car fracs)))))
      (setq fracs (cdr fracs)))
    den))