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