Recognizer for TLB entries.
(tlb-entryp x) → *
Function:
(defun tlb-entryp (x) (declare (xargs :guard t)) (let ((__function__ 'tlb-entryp)) (declare (ignorable __function__)) (b* (((unless (consp x)) nil) ((cons key val) x)) (and (good-tlb-key-p key) (unsigned-byte-p (- 52 12) val)))))