Implementation of fast-logext in the general case.
Function:
(defun fast-logext-fn (b x) (declare (xargs :guard (and (posp b) (integerp x)))) (let ((__function__ 'fast-logext-fn)) (declare (ignorable __function__)) (mbe :logic (logext b x) :exec (fast-logext-exec b x))))