(i01p x) → *
Function: i01p$inline
(defun i01p$inline (x) (declare (xargs :guard t)) (signed-byte-p 1 x))
