Function: Math-negp

Math-negp is a byte-compiled function defined in calc-macs.el.gz.

Signature

(Math-negp A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-macs.el.gz
(defsubst Math-negp (a)
  (if (consp a)
      (if (memq (car a) '(frac float))
	  (Math-integer-negp (nth 1 a))
	(math-negp a))
    (< a 0)))