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