		Search-engine friendly clone of the ACL2 documentation.

Std/testing

Must-be-table-key

A top-level assert$-like command to ensure that a table includes a certain key.

Macro: must-be-table-key

(defmacro
 must-be-table-key (key table)
 (declare (xargs :guard (and (symbolp key) (symbolp table))))
 (cons
  'assert!
  (cons
       (cons 'assoc-eq
             (cons (cons 'quote (cons key 'nil))
                   (cons (cons 'table-alist
                               (cons (cons 'quote (cons table 'nil))
                                     '((w state))))
                         'nil)))
       'nil)))