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