Faster version of vl-id-p, given that vl-atomguts-p is already known.
(vl-fast-id-p x) → *
We leave this function enabled and reason about
Function:
(defun vl-fast-id-p$inline (x) (declare (xargs :guard (vl-atomguts-p x))) (let ((__function__ 'vl-fast-id-p)) (declare (ignorable __function__)) (mbe :logic (vl-id-p x) :exec (eq (tag x) :vl-id))))