A fast alist binding all currently supported keyword names to
their corresponding
(vl-full-keyword-table) → *
Function:
(defun vl-full-keyword-table nil (declare (xargs :guard t)) (let ((__function__ 'vl-full-keyword-table)) (declare (ignorable __function__)) *vl-2012-keyword-table*))
Theorem:
(defthm symbol-listp-of-alist-vals-of-vl-full-keyword-table (symbol-listp (alist-vals (vl-full-keyword-table))))
Theorem:
(defthm symbolp-of-lookup-in-vl-full-keyword-table (symbolp (cdr (hons-assoc-equal key (vl-full-keyword-table)))))