(i01 x) → *
Function: i01$inline
(defun i01$inline (x) (declare (xargs :guard (integerp x))) (mbe :logic (logext 1 x) :exec (fast-logext 1 x)))