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