Function: calcFunc-dpos

calcFunc-dpos is an autoloaded and byte-compiled function defined in calc-arith.el.gz.

Signature

(calcFunc-dpos EXPR)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-arith.el.gz
(defun calcFunc-dpos (expr)
  (let ((signs (math-possible-signs expr)))
    (if (eq signs 4) 1
      (if (memq signs '(1 2 3)) 0
	(math-reject-arg expr 'posp 'quiet)))))