Recognizer for asm-name-spec structures.
(asm-name-specp x) → *
Function:
(defun asm-name-specp (x) (declare (xargs :guard t)) (and (consp x) (b* ((strings (car x)) (uscores (cdr x))) (and (stringlit-listp strings) (keyword-uscores-p uscores)))))
Theorem:
(defthm consp-when-asm-name-specp (implies (asm-name-specp x) (consp x)) :rule-classes :compound-recognizer)