Makes ABNF AST for a repetition of exactly one
(make-repetition-unit-rule rulename) → result
Function:
(defun make-repetition-unit-rule (rulename) (declare (xargs :guard (stringp rulename))) (let ((__function__ 'make-repetition-unit-rule)) (declare (ignorable __function__)) (abnf::make-repetition :element (abnf::element-rulename (abnf::rulename rulename)) :range (make-repeat-range-1*1))))
Theorem:
(defthm repetitionp-of-make-repetition-unit-rule (b* ((result (make-repetition-unit-rule rulename))) (abnf::repetitionp result)) :rule-classes :rewrite)