((/rtl/rel7/support/support/lxor.lisp::binary-lxor (nil nil nil nil nil (mbe) nil) ((:logic :exec) nil nil (logxor) (cond) nil nil) (nil nil ((zp n) (equal n 1) t) nil (bits bits) nil nil) ((x y) (0 0 0) (1- 1-) (+) (if) nil nil) ((n n) (0 1) nil (iff *) (recursive-call) nil nil) (nil (2 1) nil (equal equal mod mod) (recursive-call) nil nil) ((x y) (1 1 2 2) (fl fl 1-) (bitn bitn) nil nil nil)))