Raw constructor for honsed vl-inttoken-p structures.
Syntax:
(honsed-vl-inttoken etext width signedp value bits wasunsized)
This is identical to vl-inttoken, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-inttoken (etext width signedp value bits wasunsized) (declare (xargs :guard (and (and (vl-echarlist-p etext) (consp etext) (true-listp etext)) (posp width) (booleanp signedp) (maybe-natp value) (vl-bitlist-p bits) (booleanp wasunsized) (vl-inttoken-constraint-p width value bits)))) (mbe :logic (vl-inttoken etext width signedp value bits wasunsized) :exec (hons :vl-inttoken (hons (hons etext (hons width signedp)) (hons value (hons bits wasunsized))))))