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 onestepp)
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 onestepp) (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) (booleanp onestepp)))) (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 onestepp) :exec (hons (hons (hons (hons kwdtable bangops) (hons poundops (hons remops andops))) (hons (hons starops (hons plusops dashops)) (hons dotops (hons divops colonops)))) (hons (hons (hons lessops gtops) (hons eqops (hons xorops barops))) (hons (hons dollarops (hons quotesp strextsp)) (hons timelitsp (hons extintsp onestepp)))))))