-(define-modular-fun logxor-mod64 (x y) logxor :unsigned 64)
-(define-mod-binop (fast-logxor-mod64/word=>unsigned
- fast-logxor/unsigned=>unsigned)
- logxor-mod64)
-(define-mod-binop-c (fast-logxor-mod64-c/word=>unsigned
- fast-logxor-c/unsigned=>unsigned)
- logxor-mod64)
-(define-vop (fast-logxor-mod64/fixnum=>fixnum
- fast-logxor/fixnum=>fixnum)
- (:translate logxor-mod64))
-(define-vop (fast-logxor-mod64-c/fixnum=>fixnum
- fast-logxor-c/fixnum=>fixnum)
- (:translate logxor-mod64))
-