Raw constructor for honsed vl-lexstate-p structures.
Syntax:
(honsed-vl-lexstate kwdtable bangops poundops remops andops starops plusops dashops dotops divops colonops lessops gtops eqops xorops barops dollarops quotesp strextsp timelitsp extintsp)
This is identical to vl-lexstate, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-lexstate (kwdtable bangops poundops remops andops starops plusops dashops dotops divops colonops lessops gtops eqops xorops barops dollarops quotesp strextsp timelitsp extintsp) (declare (xargs :guard (and (vl-keyword-table-p kwdtable) (vl-plaintoken-alistp bangops) (vl-plaintoken-alistp poundops) (vl-plaintoken-alistp remops) (vl-plaintoken-alistp andops) (vl-plaintoken-alistp starops) (vl-plaintoken-alistp plusops) (vl-plaintoken-alistp dashops) (vl-plaintoken-alistp dotops) (vl-plaintoken-alistp divops) (vl-plaintoken-alistp colonops) (vl-plaintoken-alistp lessops) (vl-plaintoken-alistp gtops) (vl-plaintoken-alistp eqops) (vl-plaintoken-alistp xorops) (vl-plaintoken-alistp barops) (vl-plaintoken-alistp dollarops) (booleanp quotesp) (booleanp strextsp) (booleanp timelitsp) (booleanp extintsp)))) (mbe :logic (vl-lexstate kwdtable bangops poundops remops andops starops plusops dashops dotops divops colonops lessops gtops eqops xorops barops dollarops quotesp strextsp timelitsp extintsp) :exec (hons (hons (hons (hons kwdtable bangops) (hons poundops (hons remops andops))) (hons (hons starops plusops) (hons dashops (hons dotops divops)))) (hons (hons (hons colonops lessops) (hons gtops (hons eqops xorops))) (hons (hons barops (hons dollarops quotesp)) (hons strextsp (hons timelitsp extintsp)))))))