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