Function: calcFunc-xor

calcFunc-xor is an autoloaded and byte-compiled function defined in calc-bin.el.gz.

Signature

(calcFunc-xor A B &optional W)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-bin.el.gz
(defun calcFunc-xor (a b &optional w)   ; [I I I] [Public]
  (cond ((Math-messy-integerp w)
	 (calcFunc-xor a b (math-trunc w)))
	((and w (not (integerp w)))
	 (math-reject-arg w 'fixnump))
	((and (integerp a) (integerp b))
	 (math-clip (logxor a b) w))
	((or (eq (car-safe a) 'mod) (eq (car-safe b) 'mod))
	 (math-binary-modulo-args 'calcFunc-xor a b w))
	((not (Math-num-integerp a))
	 (math-reject-arg a 'integerp))
	((not (Math-num-integerp b))
	 (math-reject-arg b 'integerp))
	(t (math-clip (logxor (math-binary-arg a w) (math-binary-arg b w)) w))))