Raw constructor for honsed vl-extinttoken-p structures.
Syntax:
(honsed-vl-extinttoken etext breakp value)
This is identical to vl-extinttoken, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-extinttoken (etext breakp value) (declare (xargs :guard (and (and (vl-echarlist-p etext) (consp etext)) (booleanp breakp) (vl-bit-p value)))) (mbe :logic (vl-extinttoken etext breakp value) :exec (hons :vl-extinttoken (hons etext (hons breakp value)))))