(logmaskp i) → bool
Note that this function explicitly checks
Function:
(defun logmaskp (i) (declare (xargs :guard t)) (let ((__function__ 'logmaskp)) (declare (ignorable __function__)) (mbe :logic (and (integerp i) (>= i 0) (equal i (- (expt2 (integer-length i)) 1))) :exec (and (integerp i) (eql i (the unsigned-byte (- (the unsigned-byte (ash 1 (integer-length i))) 1)))))))