Function: math-atomic-factorp

math-atomic-factorp is an autoloaded and byte-compiled function defined in calc-poly.el.gz.

Signature

(math-atomic-factorp EXPR)

Documentation

Return non-nil if is a factor containing no sums or quotients.

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-poly.el.gz
(defun math-atomic-factorp (expr)
  "Return non-nil if is a factor containing no sums or quotients."
  (cond ((eq (car-safe expr) '*)
	 (and (math-atomic-factorp (nth 1 expr))
	      (math-atomic-factorp (nth 2 expr))))
	((memq (car-safe expr) '(+ - /))
	 nil)
	((memq (car-safe expr) '(^ neg))
	 (math-atomic-factorp (nth 1 expr)))
	(t t)))